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IDENTIFICATION 


PRODUCT CODE: AC-8540D-MC 

PRODUCT NAME: CZDMBDC DM11 DATA TST 
PRODUCT DATE: JULY, 1979 
MAINTAINER: DIAGNOSTIC GROUP 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT 10 CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1972,1979 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
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ABSTRACT 


TWO SEPARATE DIAGNOSTIC PROGRAMS ARE PROVIDED FOR TESTING THE 
DM11 CASYNCHRONOUS DATA MULTIPLEXER), CZDMA (DM11 LOGIC 
TESTS), AND CZDMB (DM11 MULTIPLE LINE DATA TESTS). 

THE LOGICC TESTS INDIVIDUALLY TEST EACH OF THE 16 DM11 

LINES AND ALL COMMON LOGIC. THE MULTIPLE LINE DATA TESTS 

RUN SEVERAL LINES CONCURRENTLY AND ARE USED TO TEST LINE 
INTERACTION AND DATA TRANSMISSION/RECEPTION RELIABILITY. 

THIS DOCUMENT DESCRIBES THE MULTIPLE LINE DATA TESTS. 

THE AVAILABLE TESTS ARE: 


PRGO - DATA TESTS 

PRGI DATA TEST(ALL LINES SIMULTANEOUSLY) 
PRG2 - TRANSMIT TO TERMINALS 

PRG3 - ECHO RECEIVED DATA 


REGUIREMENTS 
EQUIPMENT 
PDP 11 FAMILY PROCESSER 


A. 
8. DM11 

C. JUMPERS CONNECTING 16 TRANSMITTERS TG THEIR RESPECTIVE 
D. 

Ew 


RECEIVERS. 

TERMINALS (IF AVAILABLE) 

DM11 DISTRIBUTION PANEL 
STORAGE 


THIS PROGRAM USES ALL OF CORE (4K) EXCEPT THAT AREA RESERVED 
FOR THE LOADERS. 


PREREQUISITE PROGRAMS 
CZDMA__ DM11 LOGIC TESTS 


LOADING PROCEDURE 
THE ABSOLUTE LOADER IS USED 70 LOAD THE PROGRAM. 


SEG 0002 
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USE PROCEDURE 
STARTING PROCEDURE 


BEFORE STARTING MAYE SURE THAT THE TTY IS IN REMOTE MODE. 
THREE STARTING ADDRESSES ARE PROVIDED. 


0200 - THIS STARTING ADDRESS REQUESTS DM11 PARAMETERS, AND MUST 
BE USED TO INITIALLY START THE PROGRAM, AND WHENEVER ANY 
OF THE PARAMETERS LISTED BELOW IS CHANGED. 


A. VECTOR ADDRESS ? 
RESPONSE: TYPE IN THE VECTOR ADDRESS OF THE DM11 RECEIVER 
UNDER TEST. CARRIAGE RETURN SELECTS 0300 


B. UNIT #(8)? 
RESPONSE: THE DM11 UNIT NUMBER CORRESPONDS TO THE 
ADDRESS TO WHICH THE CLOCK STATUS REGISTER (CSR) RESPONDS. 


CSR ADDRESS DM11 UNIT # CSR ADDRESS DM11 UNIT # 
175000 0 175100 10 
175010 1 175110 1 
175020 2 175120 12 
175030 3 175150 iB 
175040 ‘, 175140 14 
175050 5 175150 15 
175060 6 175160 16 
17507 / 175170 17 
CARRIAGE RETURN SELECTS UNIT # 0. 
C. PRG # 


RESPONSE: TYPE PROGRAM NUMBER OF PROGRAM YOU WISH TO 
RUN. CARRIAGE RETURN SELECTS PROGRAM # 0. 


CARRIAGE RETURN TERMINATES ALL RESPONSES. 
ANY UNACCEPTABLE RESPONSE WILL RESULT IN A ? TYPEOUT AND 
THE PARAMETER WILL AGAIN BE REQUESTED. 


0204 - THIS STARTING ADDRESS USES PREVIOUSLY DEFINED DM1i 
PARAMETERS AND REQUESTS THE PROGRAM NUMBER OF THE 
PROGRAM YOU WISH TO RUN. 


0210 - THIS STARTING ADDRESS STARTS THE PREVIOUSLY SELECTED 
PROGRAM USING PREVIOUSLY SELECTED PARAMETERS. 


SEQ 0005 
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CZ0MBD.P11 25-J5UL-79 15:08 SEC 
123 
‘Se 4.2 SWITCH SETTINGS 
se THE FOLLOWING SWITCH SETTINGS APPLY TO PROGRAM #0. 
128 SR 0-6 ROUTINE TG BE RUN (IF ENABLED BY SR-9) 
129 SR 9 is LOOP SELECTED ROUTINE 
130 sk 11 INHIBIT ITERATION (DO EACH ROUTINE ONCE) 
131 SR 13 INHIBI? PRINTOUT 
132 SR 14 SCOPE (LOOP ROUTINE) 
13% SR 15 HALT ON ERROR 
134 
i 
137 THIS PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR WITHOUT 
138 A HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED THE PROGRAM TESTS 
1439 THE EXISTENCE OF A HARDWARE SWITCH REGISTER. IF NOT FOUND A 
140 SOFTWARE SWITCH REGISTER LOCATION (SWREG=LOC. 176 ) IS DEFAULTED 19. 
141 IF THIS IS THE CASE, UPON EXECUTION THE CONTENTS OF THE SWREG ARE 
rg DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED 
4 
ie (IE) SWR=XXXXXX NEW= 
"a 
rt: POSSIBLE RESPONSES ARE: 
4 
48 he <CR> If NO CHANGES ARE TO BE MADE 
49 c. 6 DIGITS 0-7 TO REPRESENT IN OCTAL THE NEW SWITCH REGISTER 
50 VALUE ;LAST DIGIT FOLLOWED BY <CR>. 
, a “— TO ALLOW REENTERING VALUE IF ERROR IS COMMITTED 


KEYING IN SWREG VALUE. 


BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE 
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING “°G 

(CNTL G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE 
THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY AREAS OF THE PROGRAM 
CODE (1E) ERROR ROUTINES, AFTER HALTS END OF PASS, AND OTHER 
APPLICABLE AREAS. 
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5.0 
5.1 


> ee: 


+5 


5.4 


6.0 


PROGRAM DESCRIPTIONS 
PRGO - LOGIC TESTS 


PRGO CONSISTS OF 34(8) INDEPENDENT ROUTINES WHICH TRANSMIT VARIOUS 
DATA PATTERNS ON ALL LINES WITH A DECREASING DELAY BEFORE STARTING 
SUCCESSIVE LiNES. THE DATA IS CHECKED WHEN ALL TRANSMITTERS HAVE 
COMPLETED TRANSMITTING. IF A DATA ERROR OCCURS THE ERROR TYPEOUT 
WILL SHOW THE DATA FAILURE AND THE LINE NUMBER. 


PRG1 - DATA TEST (ALL LINES SIMULTANEOUSLY) 

PROGRAM 1 TRANSMITS " A QUICK BROWN FOX JUMPED OVER THE LAZY DOGS 
BACK 1254567890" ON ALL LINES SIMULTANEOUSLY. WHEN ALL LINES HAVE 
FINISHED RECEIVED DATA IS VERIFIED. AN ERROR TYPEOUT IS AS IN PRGO. 


PRG2 - TRANSMIT TO TERMINALS 
PROGRAM 2 IS THE SAME AS PROGRAM 1 EXCEPT THAT THE RECEIVED 
DATA IS NOT CHECKED. 


PRG5 - ECHO RECEIVED DATA 

NOTE: THIS PROGRAM MAY ONLY BE RUN IF USING AN 

ASR 33 NOT MODIFIED BY DEC. 

PROGRAM 3 ECHOES BACK DATA RECEIVED FROM A TERMINAL. 

NOTE: PROGRAM 3 SHOULD BE RUN AND DATA TYPED AT ALL AVAILABLE 
DM11 TERMINALS. IT IS THE ONLY TEST THAT INSURES CORRECT OPERATION 
OF THE DM11 DISTRIBUTION PANEL LOGIC. IF THE TERMINALS ARE ASR-33 
WITH A PAPER TAPE READER/PUNCH | SUGGEST THAT INDIVIDUAL TAPES BE 
MADE UP FOR EACH LINE. THIS CAN BE DONE BY RUNNING PROGRAM 2 WITH 
THE PUNCH TURNED ON. PROGRAM 2 WILL THEN PUNCH A TAPE ON EACH TERMINAL 
WITH THE LINE NUMBER IDENTIFIER AT THE BEGINNING OF EACH TAPE. 
PROGRAM 3 CAN BE RUN WITH THESE TAPES IN THE PAPER TAPE READERS. 


CHANGE HISTORY 
NOTE: CHANGE HISTORY STARTS WITH REV. DO 
CZDMBDO - TABLE BASE ADDRESS (TBR) REGISTER WILL ONLY WORK IF SET 


TO 400 WORD BOUNDARY (1000,1400,2000,ETC.). THEREFOR 
LOC. 1100 CHANGED TO 1200, AND LOC. 1106 CHANGED 10 1400 
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oh 197 E 

ENABLE ABS. AMA 


;CZDMBDO D0M11 DATA TSTS 
;COPYRIGHT 1972,1979 DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 
;PRGO- DATA TESTS 

;PRGI- DATA TEST (ALL LINES SIMULTANEOUSLY) 
;PRG2- TRANSMIT TO TERMINALS 

;PRG3- ECHO RECEIVED DATA 


; STANDARD SR ahh. * Jape CSWITCH SET TO A 1 (UP)] 
;SR15- HALT ON ERR 
;SR14- SCOPE. 


;SR13- INHIBIT PRINTOUT 
;SR12- INHIBIT TRACE 


;SR11- INHIBIT ITERATION. 
: SR9- LOOP ROUTINE. 
;SR6 THROUGH SRO - NUMBER OF ROUTINE TO BE LOOPED. 


>EQUATE STATEMENTS 


CC=177776 
PSW=177776 


MANUAL = B1T15 
000 
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SEQ 0006 


01754 


POPSP=5726 ;POP THE STACK, SAME AS TST (6)¢ 


POPSP2=022626 


PRTY6=300 
PRTY¥5=240 
PRTY4=200 
PRTY5=140 
PRTY2=100 
PRTY1=40 


;POP STACK TWICE. SAME AS CMP (6)+4,(6)° 
PRTY7=340 sPRIORITY LEVEL DEFINITIONS 
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259 000000 PRTYO-0 
260 000000 RO=20 

2 000001 R1=%1 

262 000002 R2=%2 

263 000003 R3=2%3 

264 000004 R4=%4 

265 000005 R5=%5 

266 000006 SP=%6 

267 000007 PC=%7 

268 -EMT CALLS 

269 104000 TYPE=EMT+0 

270 104001 TYPES=EMT+1 

271 104002 STALL=EMT+2 

272 104003 ERROR=EMT+3 

273 104004 DATCHK=EMT+4 

274 104006 STRXV=EMT+6 

275 104007 STIXV=EMT+7 

276 104010 EHALT=EMT+10 

277 104012 SCOPE=EMT+12 

278 104013 SAVREG=EMT+13 

279 104014 RSTREG=EMT+14 

280 104015 ERROR1=EM1T+15 

281 104016 SUSWR=EMT+16 

282 104017 KBDIN=EMT+17 

+ 104020 CNTLU=EMT+20 

285 000007 BELL=007 

286 177777 ATLAST=-1 

287 125252 ALT0=125252 sALTERNATING O'S PATTERN 
288 052525 ALT1=052525 ;ALTERNATING 1°S PATTERN 
289 000000 ¥< 

290 17777 X=-] 

291 000000 A-0 

292 000000 .z 

295 000000 000000 HALT 

294 000002 000000 HALT 

295 000004 000006 .*2 :SP OVERFLOW, BUS ERROR TRAP 
296 000006 000000 HALT 

297 000010 000012 -*2 sRESERVED INSTRUCTION TRAP 
298 000012 000000 HALT 

299 000014 000016 .+2 ; TRACE TRAP 

300 000016 000000 HALT 

301 000020 000022 .+2 ;TRAP TO CALL IOX 

302 000022 000000 HALT 

303 000024 000026 +2 ;POWER FAIL TRAP 

304 000026 000000 HALT 

305 000030 003064 EMTINT -EMT TRAP 

306 000032 000340 PRIY7 

307 000034 000036 +2 

308 000036 000000 HALT 

309 000040 v00042 .*2 

310 000042 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
311 000044 000046 .*2 

312 000046 000000 HALT >; TRAPPED TO PREVIOUS ADDRESS, 
318 000050 000052 .*2 

314 000052 000000 HALT ; TRAPPED [0 PREVIOUS ADDRESS. 
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; TRAPPED 
; TRAPPED 
; TRAPPED 
> TRAPPED 
; TRAPPED 
; TRAPPED 
: TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED. 
; TRAPPED 
; TRAPPED 
; TRAPPED 


: TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 
; TRAPPED 


TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 


TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TC PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
TO PREVIOUS ADDRESS. 
10 PREVIOUS ADDRESS. 
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CZOMBD.P1. 25-JUL-79 15:08 SEQ 0005 
371 000234 0002%6 -*2 
372 000236 000000 HALT > TRAPPED TO PREVIOUS ADDRESS. 
373 000240 000242 .+2 
374 000242 000000 HALT > TRAPPED TO PREVIOUS ADDRESS. 
375 000244 000246 -42 
376 000246 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
377 000250 000252 .*2 
378 000252 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
379 000254 000256 .*2 
380 000256 000000 HALT ; TRAPPED 10 PREVIOUS ADDRESS. 
381 000260 000262 .*2 
382 000262 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
383 000264 000266 gta 
584 000266 000000 HALT > TRAPPED TO PREVIOUS ADDRESS. 
385 000270 000272 .*2 
5386 000272 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
387 000274 000276 .+2 
388 000276 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
389 000300 009302 .*2 
390 000502 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
391 000304 000306 .+2 
392 000306 000000 HALT : TRAPPED TO PREVIOUS ADDRESS. 
393 000310 000312 ,e2 
394 000312 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
395 000314 000316 .*2 7 
396 000316 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
397 000320 000322 +2 
398 000322 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
399 000324 000326 .+2 
400 000326 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
401 000350 000332 .t2 
402 000332 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
405 000334 000336 +2 
404 000336 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
405 000340 000342 .+2 
406 000342 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
407 000344 000346 42 
408 000346 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
409 000350 000352 +2 
410 000352 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
411 000354 000356 +2 
41e¢ 000356 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
413 000360 000362 +2 
414 000362 000000 HALT : TRAPPED TO PREVIOUS ADDRESS. 
415 000364 000366 v#2 
416 000366 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
417 000370 000372 .*2 
418 000372 000000 HALT ; TRAPPED TO PREVIOUS ADDRESS. 
419 000374 000376 .*2 : 
os 000376 000000 HALT ; TRAPPED 10 PREVIOUS ADDRESS. 
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000174 
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000137 002422 
000137 002472 
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-=46 
SENDAD 
-=52 
020000 
22174 
DISPREG:0 
SWREG: 0 
-=200 
JMP @aaSTART 
JMP QARSTAT1 
JMP AFRSTAT2 
=12900 
oe da 0 
SWR 177570 
DISPLAY: 177570 
.=1400 
CAT: OPEN 
-=CAT+32 
WCT: OPEN 
=WwCT+32 
BAT: OPEN 
.=BAT+32 
VAC: OPEN 
CSR: 175000 
BAR: 175002 
BKCSR 175004 
BASREG: 175006 
CLKINT: OPEN 
CLKLVL: PRTYS 
XMTINT: OPEN 
XMTLVL: PRTYS 
BARIM: OPEN 
TTDAT: OPEN 
LINBIT: OPEN 
BARDA!T: OPEN 
TIPTR: OPEN 
TUMTAB: OPEN 
=TUMTAB+128 
TKVTR: 0 
TKLVL PRTYS 
TPVIR: 64 
TPLVL PRTY4 
KSTART: OPEN 
CURTST: OPEN 
RINNO: OPEN 
NXTST OPEN 
ICTR: OPEN 
SCOPTR: OPEN 


;ACTi1 HOOKS 


>GO TO START OF DIAGNOSTIC. 
:GO GET PROGRAM # & RESTART PROGRAM 
sUSING PREVIOUS DM11 PARAMETERS 
sRESTART PREVIOUS PROGRAM USING 
>PREVIOUS DM11 PARAMETERS 


:STARTING ADDRESS OF 

>CURRENT ADDRESS TABLE 

>STARTING ADDRES OF 

:WORD COUNT TABLE 

:STARTING ADDRESS OF 

>B1T ASSEMBLY TABLE 

52. SPARE WORDS 

ADDRESS OF CLOCK STATUS REGISTER 
ADDRESS OF BUFFER ACTIVE REGISTER 
;ADDRESS OF BREAK STATUS REGISTER 
;ADDRESS OF BASE REGISTER 

:DM11 VECTOR ADDRESS (RECEIVER) 
>PRIORITY LEVEL 

;DM11 VECTOR ADDRESS (TRANSMITTER) 
; TRANSMITTER PRIORITY LEVEL 
;PROGRAM BAR IMAGE 


> TUMBLE TABLE DATA 

;LINE BIT (FOR BAR) 

;BAR DATA 

;PROGRAM TUMBLE TABI.E POINTER 


BH ue ADDRESS OF 
; TUMBLE TABLE 
-LSR INTERRUPT VECTOR 


LSR PRIORITY LEVEL 

>LSP INTERRUPT VECTOR 

:LSP PRIORITY LEVEL 

>CURRENT PROGRAM START ADDRESS. 
sCONTAINS ADDR OF CURRENT TEST. 
;CONTAINS CURRENT TEST #. 
>CONTAINS ADDR OF NEXT TEST. 
>CONTAINS CURRENT ITERATION COUNT 
;CONTAINS CURRENT SCOPE POINTER. 


SEQ 0010 


j 3 
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CZ20MBD.P11 23-JUL-79 15:08 SEO 0011 
478 002024 177774 PRGLIM: -4 
479 002026 005660 PRGTAB: PRGO :PRGO START ADDRESS 
480 002030 006640 PRG1 :PRG1 START ADDRESS 
481 002032 007024 PRG2 :PRG2 START ADDRESS 
482 002034 007034 PRG3 >PRG3 START ADDRESS 
483 002036 005702 RSTART: PRGOR ;PRGO RESTART ADDRESS 
484 002040 006656 PRGIR :PRG1 i ™ 
485 002042 007030 PRG2R :PRG2 ~ 
486 002044 007052 PRG3R :PRG3 nm o 
487 002046 003220 EMTTAB: TYP ;POINTER TO TYPEUUT ROUTINE 
488 002050 000000 OPEN :POINTER TO CHAINED MESSAGES ROUTINE 
489 002052 009000 OPEN >POINTER TO RANDOM STALL ROUTINE 
490 002054 002224 ERR ;POINTER TO ERROR ROUTINE 
491 002056 002156 DTCHK 
492 002060 000000 OPEN 
495 002062 000000 OPEN 
494 002064 000000 OPEN 
495 002066 000000 OPEN 
496 002070 000000 OPEN 
497 002072 002650 ESCOPE 
498 002074 003116 SAVRG 
499 002076 903156 RSTRG 
500 002100 002242 ERR1 
501 002102 004412 SUSWRR 
502 002104 004256 KBDINTT 
rt 002106 004332 CNTLUU 
505 002110 000000 SRT: OPEN 
506 002112 177560 TKCSR: 177560 
507 002114 177562 TKDBR: 177562 
508 002116 177564 TPCSR 177564 
509 002120 177566 TPDBR: 177566 
510 002122 000000 RCVDAT: OPEN 
511 002124 000000 XMTDAT: OPEN 
512 002126 000000 CARMSK: OPEN 
513 002130 000000 TEMP OPEN 
514 002132 000000 PCADD: OPEN 
515 002134 000000 APCADD: OPEN 
516 002136 000000 PRVCNT: OPEN 
517 002140 000000 LINE OPEN 
518 002142 000000 LINBUF: OPEN 
519 002144 000000 : OPEN 
3st 002146 000000 COUNT: OPEN 
$22 
523 002150 104000 INCRIN: TYPE 
£24 002152 013300 M1 ; TYPE INCORRECT ROUTINE SELECTED. 
525 002154 000207 RTS %7 EXIT, 
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7DATA CHECK ROUTINE. 
DICHK: CMPB 


002156 123737 002122 002124 RCVDAT,XMTIDAT ;COMPARE EXPECTED AND RECEIVED 


002164 001416 BEG 1$ >CHARS. BRANCH IF SAME. 
002166 004737 002356 JSR 7,CNVDAT ;CONVERT RCVDAT & XMTDAT TO ASCI] 
002172 032777 020000 177002 BIT #B1113,aSWR sERROR TYPEOUT DESIRED? 
002290 001010 BNE 1¢ ;BRANCH IF NO TYPEOUT DESIRED 
002202 004537 005112 JSR 5, @#0ACNV : CONVERT LINE 
002206 002140 LINE : NUMBER 
002210 013254 ALINE :T0 ASCII 
002212 000002 
002214 104015 ERROR1 
002216 104000 TYPE ;TYPE LINE # AS PART 
002220 013245 LINEM ;OF ERROR MESSAGE 
002222 000002 1$: R71 : EXIT. 
sERROR SERVICE ROUTINE CALLED BY TRAP (HLT) 
002224 012737 0004602 002324 ERR: MOV #402,ERRB :MOV BR .+6 TO ERRB 
002232 013737 002132 002134 MOV @#PCADD ,a#APCADD :GET PC WHERE ERROR OCCURRED 
002240 000410 BR ERRA 
002242 012737 000240 002324 ERRI: MOV #240,ERRB sMOVE NOP TO ERRB 
002250 013737 002132 002134 MOV @#PCAND ,A#APCADD :GET PC WHERE ERROR OCCURRED 
002256 004737 002356 JSR 7, a#CNVDAT ;CONVERT RCVDAT & XMIT DAT TO ASCII 
002262 104017 ERRA:  KBDIN :CHECK FOR *G 
002264 032777 020000 176710 BIT #B1T13,aSwWR sERROR PRINTOUT DESIRED 
002272 001017 BNE ERRC :BRANCH IF NO PRINTOUT 
002274 004537 005112 JSR 5 ,a#OACNV : CONVERT 
002300 002134 APCADD :DATA 
002502 013734 APC :19 
002304 000006 6 sASCI] 
002306 004537 005112 JSR 5, a*O0ACNV : FOR 
002512 002014 RTNNO ;PRINTOUT 
002314 013724 ATNUMB 
002316 000003 3 
002320 104000 TYPE : TYPE ERROR 
002322 013721 EMO ; MESSAGE 
002324 000000 ERRB: OPEN sNOP IF ERROR1, BR .*6 IF ERROR 
002326 104000 TYPE ; TYPE ANOTHER MESSAGE 
002330 013200 ERDAT :1F ERROR 1 
002332 023737 000042 000046 ERRC: CMP O42 ,0#46 :ACT11? 
002340 001403 BEO ERRHLT :;BR IF YES 
002342 005777 176634 TST aSWR sHALT ON ERROR 
002346 100001 BPL ERRE x :GO TO EXIT IF NO HALT ON ERROR 
002350 000000 ERRHLT: HALT > HALT 
002352 104017 ERREX: KBDIN sCHECK FOR “°G 
002354 000002 RT] : RETURN 
; SUBROUTINE TO CONVERT RCVDAT AND XMTIDAT TO ASCII] AND PLACE 
: IN MESSAGE. 
002356 004537 005112 CNVDAT: JSR 5 ,OACNV 
002362 002124 XMTDAT 
002364 013220 AASB 
002366 000006 6 
002370 004537 005112 JSR 5 ,OACNV 
092374 002122 RCVDAT 


N 
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DOMBD .P11 23-JUL-79 SEQ 0012 
582 002376 013235 AWAS 

583 002400 000006 6 

age 002402 000207 RTS 7 EXIT 

85 

588 002404 012706 001200 START: MOV #SPBOT,%6 s INITIALIZE STACK 

589 002410 104016 SUSWR >CHECK FOR HARDWARE SWITCH REGISTER 
590 002412 004737 003334 JSR 7, a#DMPAR :GET DM11 PARAMETERS 

591 002416 004737 004042 JSR 7 ,a@#OVRLAY ;PUT HALT,.+#2 IN VECTOR AREA 

592 002422 012706 001200 RSTAT1: MOV #SPBOT 26 > INITIALIZE STACK 

593 002426 023737 000042 000046 CMF @#42 ,a#46 :ACT11? 

594 002434 001405 BEQ PRGNUM+2 :BR IF YES 

595 002436 104000 TYPE 

596 002440 013260 MO 

597 002442 004537 004076 JSR 5,RECD ;GET THE PRGNUM & 

598 002446 000000 PRGNUM: 0 ;PUT IT HERE 

599 002450 043737 002024 002446 BIC PRGLIM,PRGNUM ;MASK OFF UNUSED BITS 

600 002456 006337 002446 ASL PRGNUM ;SHIFT PROGRAM # 

601 002462 013700 002446 MOV PRGNUM, %C :GET PROGRAM # 

602 002466 000170 002026 JMP @PRGTAB(O) :GO START PROGRAM 

603 002472 012706 001200 RSTAT2: MOV #SPBOT ,%6 s INITIALIZE STACK 

604 002476 013700 002446 MOV PRGNUM, %0 :GET PROGRAM # 

605 002502 000170 002036 JMP ARSTART(O) :GO RESTART PROGRAM 

606 002506 022737 000176 001202 SRSET: CMP #SWREG, SWR 

607 002514 001410 BEQ 1$ 

608 002516 023737 000042 000046 CMP @442 ,0446 :ACT11? 

09 002524 001405 BEQ GETRDY :BR IF YES 

610 002526 104000 TYPE :TYPE OPTIONS MESSAGE 

611 0025350 013330 M3 

612 002532 000000 HALT :WAILT FOR USER TO SET OPTIONS 
613 002534 000401 BR GETRDY 

614 002536 104020 1$: CNILU 

615 002540 013737 002010 002016 GETRDY: MOV KSTART,NXTST :ADDR OF 1ST ROUTINE TO NXTST 
616 00254 012737 000006 000004 GITRDYX: MOV #6 ,@MERRVEC sRESET ERROR TRAP, 

617 002554 005037 177776 CLR PSW 

618 002560 012706 001200 MOV #SPBOT ,%6 :SET BOTTOM OF STACK. 

619 002564 000005 RESET ; ISSUE RESET. 

620 002566 004737 003032 GTRDYA: JSR %47,FORWD ;ROLL FORWARD TO ‘'NEXT’’ ROUTINE. 
621 002572 032777 001000 176402 BIT #B11T9,aSWR ;CHECK SELECT ROUTINE SWITCH 
622 002600 001003 BNE GTRDYC ;BRANCH IF SELECT ROUTINE SWITCH IS SET. 

2 002602 000177 177204 JMP aCURTST ;GO RUN CURRENT ROUTINE. 

2 002606 000461 BR SCOPED ;NO GO. MANUAL RIN BYPASSED. 

625 002610 017700 176366 GIRDYC: MOV aSWR ,%0 ;(SR) TO RO 

626 002614 042700 177600 BIC #177600,%0 >MASK UNDESIRED BITS 

627 002620 123700 002014 CMPB RTNNO, %0 : COMPARE RTNNO TO (RO) 

628 002624 001002 BNE GTRDYD >;BRANCH IF ROUTINE NOT FOUND YET. 
629 002626 00177 177160 JMP aCURTST :GO RUN ROUTINE. 

630 002632 022737 177777 002016 GTRDYD: CMP #-1 NXTST ;NO. CHECK FOR LAST ROUTINE. 

631 002640 (01352 BNE GIRDYA ;BRANLY JF NOT LAST ROUTINE. 
632 002642 004737 062150 JSR %7,1INCRIN ;YES. INCURRECT ROUTINE SELECTED. 
oe 002646 000734 BR GETRDY sSTART OVER. 

654 

635 SCOPE ROUTINE (CALLED BY EMT INST.) 


636 002650 000240 ESCOPE: NOP 
637 002652 005077 176664 CLR acSR INITIALIZE 


NS 
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658 002656 00507 
659 902662 005077 
640 002 104017 
641 002670 012777 
642 002676 032777 
645 002704 001403 
644 0027 013716 
645 002712 000002 
646 002714 032777 
647 002722 001012 
648 002724 023737 
649 0027352 001003 
650 002734 005737 
651 002740 001403 
652 002742 005337 
653 002746 001357 
654 002750 022624 
655 002752 032777 
656 002760 001267 
657 002762 022737 
658 002770 001266 
659 002772 005237 
660 002776 104000 
661 003000 013303 
662 003002 013702 
663 003006 001654 
664 003010 000005 
665 003012 000240 
666 0035014 000240 
667 003016 000240 
668 005020 000240 
669 005022 004712 
670 003024 000240 
671 003026 000240 
ore 003030 000240 
674 003032 013705 
675 003086 012537 
676 003042 012537 
677 003046 012537 
678 003052 012537 
679 003056 010537 
680 003062 000207 
681 
682 
683 003064 011646 
684 003066 162716 
685 003072 011637 
686 0035076 017616 
687 003102 105066 
688 003106 006316 
689 003110 062716 
690 003114 013607 
691 
692 
693 003116 012637 


MACY11 350A(1052) 


15:08 


176664 
176656 


001400 
049000 


002922 
004600 
000042 
002144 
002020 


001000 
177777 
002144 


000042 


000001 
002046 


003152 





176652 
176276 


176260 
000046 


176222 
002016 


CiR @BxCSR 
Ci.R @BAR 
KBDIN 
MCV SCAT @BASREG 
Bil #BiT14,aSwe 
BEG SCOPEB 
SCOPEA: vt SCOPTR,a%6 
SCOPEB: BIT #B11T11,aSWR 
BNE SCOPEC 
CMP O442 ,a#46 
BNE 1$ 
TST a#PASS 
BEQ SCOPEC 
1$: DEC ICTR 
BNE SCOPEA 
SCOPEC: POPSP2 
SCOPED: BIT #B11T9,aSWR 
BNE GETRDY 
CMP #-1 ,NXTST 
BNE GTRDYX 
INC aayPASS 
TYPE 
M2 
MOV a#42 ,%2 
BEQ GETRDY 
RESET 
NOP 
NOP 
NOP 
NOP 
SENDAD: JSR f€2) 
NOP 
NOP 
NOP 
FORWD: MOV NXTST,2%5 
MOV (5)+,RTNNO 
MOV (5)+*, NXTST 
MOV (5)4+,1CTR 
MOV (5)+,SCOPTR 
MOV 45, CURTST 
RTS “7 
sEMT TRAP INTERPRETER 
EMTINT: MOV (6),-(6) 
SUB #2,(6) 
MOV (6),PCADD 
MOV a(6),(6) 
CLRB 1(6) 
ASL (6) 
ADD MEMTTAB, (6) 
MOV a(6)+,27 


; SAVE REGS 0 10 


SAVRG: MOV 


B 
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4 SUBROUTINE. 


(6)+,1$ 


> THE 
7DM11 


>CHECK FOR SCOPE OPTION. 

>BRANCH IF SCOPE Sw NOT SET. 

>SET UP TO RETURN TO ROUTINE. 

>RETURN TO ROUTINE. 

>TEST INHIBIT ITERATION SWITCH 

; BRANCH wit. ITERATION SW SET. 


;BR IF NO 
31ST PASS? 


;BR IF YES 
;DECREMENT ITERATION COUNT. 
>BRANCH IF COUNT NOT 0. 

:POP STACK TWICE 

>CHECK SELECT ROUTINE SWITCH 
sBRANCH IF SELECT RIN Sw SET 
;LAST TEST? 

>BRANCH IF NOT LAST TEST. 


: TYPE 


-"END' 


“CHECK DDP/ACT11 MONITOR HOOK 


> IND PASS 


>RETURN TO DDP/ACT11 MONITOR 


;ADDR OF NEXT ROUTINE TO R5, 

;GET NEXT ROUTINE NUMBFR. 

;GET ADDR OF NEXT ‘'NEXT’’ ROUTINE. 
;GET ITERATION COUNT. 

>GET SCOPE LOOP ENTRY POINTER. 
ADDR OF NOW CURRENT TEST TO CURTST. 
EXIT FORWD SUBROUTINE. 


:GET PC OF NEXT INSTRUCTION 
>POINT SP TO PC OF EMT 
;GET PC OF EMT CALL 


GET EMT CALL 
;STRIP EMT & SAVE IDENTIFIER 
SHIFT IDENTIFIER LEFT 


;GO 10 PROPER EMT 


;SAVE PC AND PSW. 


mn re re a tee + ee eee 


——. ee ee ee - ee 


Cl 
CZOM 


SNN NN NEN NE 
POR — es wee es ws os Le 
—O O@neoVFwn—oO 


oO 
© 


Ooooo0o0co 
tithe ah ah ah oh sleet) 
et ee ee ee ceed eel wee ce 
Pr Utne 
FNOFOSEN SON 


003216 


003220 
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003154 


003214 
005216 


000002 


003332 
000100 


000045 
005266 
003352 
176616 
000015 


003266 


000042 


003532 


003332 


176624 


003532 
003332 


000046 


C 
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1$: OPEN 
23: OPEN 


1$: OPEN 
2$: OPEN 
1$: MOVB 
2$: CMPB 
3$: MOVB 


4$: MOVB 


B 
5$: OPEN 


(6)+,2% 


(6)+,1$% 
(6)+,2% 
(6)+,2%0 
(6)+,%1 
(6)+,%2 
(6)+,%5 
(6)+,2%4 
2$,-(6) 
1$,-(6) 


4 
a7 ,5% 
1$ 


5$,a1PDBR 


aTPCSR 
oh 


a7 
#15,5% 


47 ,a#3$ 


#12,5% 
47 3% 
1$ 


sSAVE REGS 0 - 4 
IN STACK. 


sRESTORE PC AND PSw. 
sEiT. 

:CONTAINS SAVED PC 
;CONTAINS SAVED PSW 
TO & SUBROUTINE. 

7;SAVE PC AND PSwW. 


;RESTORE REGS 0 - 4 
:FROM STACK. 


sRESTORE PC AND PSw. 
sEXIT 

;CONTAINS SAVED PC 
;CONTAINS SAVED PSW 
ee oe TO OUTPUT ASCII MESSAGE ON TELETYPE PRINTER. 

of ie 
:GET ADDRESS THAT CONTAINS MESSAGE ADDRESS. 


>SET UP EXIT. 


sADDRESS OF MESSAGE TC RO. 


;GET CHARACTER 

> CHECK FOR*'’d' ‘CHARACTER 
SBRANCH IF NOT'‘a"’ 

> TERMINATOR CHAR. “DONE. 
;CHECK FOR’ 

;BRANCH IFS" 

; TYPE CHAR IN 5$ 


; SUBROUTINE TO GET DM11 PARAMETERS 


:;VECTOR ADDRESS 
DMPAR: NOP 
CMP 


@442 ,a#46 
6% 


;BEGIN 
-AC1T11? 
;BR IF NO 


EXIT. 


;OUTPUT CHARACTER TO PRINTER 
;WAIT FOR DONE FLAG. 


sEXIT 

>MOVE CARRIAGE RETURN CODE TO 5$% 
;GO TYPE CHAR. 

>MOVE LF CODE TO 5$. 
;GO TYPE CHAR. 


SEQ 0015 


Dd 
CZOMBDO DM11 DATA ISTS MACYI1 30A(1052) 24-JUL-79 08:37 PAGE 16 
CZDMBD .P11 23-JUL-79 15:08 


SEQ 0016 
750 :SIZE FOR INTERRUPT vE&CTOR IN AUTO MODE 
751 003346 012700 000302 Mov #302,R0 :SET UP FLOATING VECT AREA 
752 003352 010060 177776 4%: MOV RO,-2(RO) 
753 003356 012720 000003 MOV #3, (RO)+ 
754 003362 005720 TST (RO)+ 
755 003364 022700 000776 CMP #776,R0 
756 003370 100370 BPL 4$ 
757 003372 012737 003462 000014 MOV #5$.a814 >SET BPT VECT 
758 003400 012737 000340 000016 MOV #346,a416 78 PSw 
759 003406 012737 177777 001440 3%: MOV 6-1,WCT :SET T0 XMIT 1 CHAR 
760 003414 012737 007362 001400 MOV #OUTBUF ,CAT 
761 003422 012777 000105 176112 MOV #B116+B112+B!1T0,aCSR SET IE 
762 003430 005037 177776 ; CLR aaPsw LVL 0 
765 003434 012777 600001 176102 MOV #B11T0,aBAR = XMIT 
764 003442 012737 177777 002146 MOV #-1, COUNT sWAIT 
765 003450 005337 002146 2%: DEC COUNT 
766 003454 001375 BNE 2% 
767 003456 104003 ERROR :NO INT OCCURRED 
768 003460 000752 he 3$ sKEPEAT IT 
769 003462 162716 000004 5$: SUB #4, (SP) sCALC INT VECT 
770 003466 011637 003522 MOV (SP), ,a@#VECTOR :STORE IT 
771 0903472 012737 000016 000014 MOV #16,a414 ;RESTORE BPT VECT 
772 003500 004737 004042 JSR 7,OVRLAY :.+2, HALT IN VECT AREA 
773 003504 000415 &R VECOK 
774 003506 004737 004042 6$: JSR 7,QVRLAY ;PUT HALT,.+2 IN VECTOR AREA 
775 003512 104000 TYPE ;ASK USER FOR RECEIVER INT. VECTOR 
776 003514 013050 WHERE ;OF UNIT UNDER TEST 
777 =©03516 004537 004076 JSR 5, RECD ;GET THE VECTOR & 
778 003522 000000 VECTOR: 0 ;PUT IT HERE 
779 + 0035246 005737 003522 TST VECTOR 
780 003530 001003 BNE VECOK 
781 003532 012737 000300 003522 MOV #300,VECTOR ;SET VECTOR = T0 0300 
782 003540 023727 003522 000300 vECOK: CMP VECTOR, #300 :1S VECTOR HIGHER OR 
783 003546 103003 BHIS VECOKB >EQUAL TO 0300 
784 003550 104000 VECOKA: TYPE :TYPE '?! 
785 005552 013300 M1 | 
786 003554 000667 BR DMPAR ;ASK FOR ANOTHER VECTOR 
787 003556 023727 003522 000770 vECOKB: CMP VECTOR, #770 :1S VECTOR = TO OR 
788 003564 101371 BH] VECOKA :LESS THAN 770 
789 003566 032737 000007 003522 BIT #7, VECTOR ;LSB OF VECTOR MUST BE ALL O'S 
790 003574 001365 BNE VECOKA 
791 003576 013737 003522 001552 MOV VECTOR ,@#CLKINT 
792 003604 062737 000004 003522 ADD #4, VECTOR 
ee 003612 013737 003522 001556 MOV VECTOR ,@#XMTINT 
795 :UNIT NUMBER 
796 003620 023737 000042 000046 DMPARB: CMP O42 3446 -ACT11? 
797 003626 001405 BEQ UNIT+2 -B2 16 YES 
798 003630 104000 TYPE 
799 «003632 013143 WHICH 
800 003634 004537 004076 JSR § RECD :GET THE UNIT & 
801 003640 000000 UNIT: 0 ;Put 17 HERE 
802 003642 023727 003640 000017 CMP UNIT,@17 
803 003650 101403 BiOS 1$ 
804 003652 104000 TYPE 
805 003654 013300 M1 





gE 2 
hem oy DM11 DATA TSTS ree +h S0A(1052) 24-jUL-79 08:37 PAGE 17 


LDMBD.P11 23-JUL-79 SEQ 0017 

806 003656 000760 1] DMPARB 

807 003660 006337 003640 1$: ASL UNIT 

808 006337 003640 ASL UNIT 

809 003670 006337 003640 ASL UNIT 

810 003674 012702 000004 MOV #4,,%2 

811 003700 012701 001542 MOV #CSR,%1 

812 003704 042711 000370 2%: BIC #370,(1) 

815 003710 065721 003640 ADD UNIT, (1)¢ 

814 003714 005302 DEC % 

hs 003716 001372 BNE 2$ 

817 :CALCULATE CHARARACTER LENGTH 

818 003720 012777 001400 175622 MOV #CAT, ABASREG 

819 003726 005077 175610 CLR acsR 

820 0037352 012737 177777 007362 MOV #-1,OUTBUF ;LOAD OUTBUF WITH CHAR TO BE TRANSMITTED 
821 003740 012737 177777 001440 MOV #-1,WCT ;SET UP TO TRANSMIT 1 CHAR 

822 003746 012737 177777 002126 MOV #-1,a#CARMSK >PRE SET THE CHARACTER MASK 

825 003754 012737 007362 001400 MOV #OUTBUF ,CAT ;1 CHARACTER ON LINE 0 

824 003762 012777 004020 175562 MOV #3$ ACLKINT ;LOAD RECEIVER INTERRUPT 

825 003770 012777 000340 175556 MOV #340, ,aCLKLVL ;AND PRIORITY LEVEL 

826 003776 005037 001600 CLR TUMTAB 

827 004002 012777 000001 175534 MOV #1, aBAR :START TRANSMITTING 

828 004010 012777 000105 175524 MOV #B1T6+BI1T2+BIT0,aCSR :SET IE,MAINT AND GO BITS 
829 004016 000001 WAIT :WAIT FOR RECEIVER INTERRUPT 

8350 004020 005077 175516 3$: CLR acsrR 

831 004024 143737 001600 002126 BICB TUMTAB,CARMSK  ;:LOAD CHARACTER LENGTH MASK 

832 004032 005037 177776 CLR PSw ;RESTORE PROCEESSER TO PRIORITY 0 
833 004036 022626 POPSP2 ;RESTORE THE STACK POINTER 

eae 004040 000207 RTS 7 sEXI11 PARAMETERS ROUTINE 
856 ;ROUTINE TO LOAD TRAP/INTERRUPT VECTOR AREA WITH HALT,.+2. HALTS PROGRAM 
837 :AT ADDRESS OF TRAP/INTERRUPT VECTOR +2. 

8358 004042 012701 000300 OVRLAY: MOV #300,%1 

839 004046 012702 000302 MOV #302 ,%2 

840 004052 010221 1$: MOV %2,(1)+ 

41 004054 005021 CLR (1)¢ 

42 004056 020227 000776 CMP 42,8776 

8435 004062 001403 BEG 2$ 

844 004064 062702 000004 ADD #4 ,%2 

845 004070 000770 BR 1$ 

846 004072 000240 2$: NOP 

oe! 004074 000207 RTS 7 EXIT 

849 ; SUBROUTINE TO RECEIVE DATA 

850 ;THIS SUBROUTINE RECEIVES DATA FROM THE KEYBOARD (UP TO SIX OCTAL 
851 :DIGITS AND PLACES THEM INTO THE ADDRESS FOLLOWING THE SUBROUTINE 
act :CALL (JSR 5,RECD). NO REGISTER CONTENTS ARE DISTURBED. 

854 

= ; SUBROUTINE TO INPUT DATA FROM TTY 

6 

857 004076 010046 RECD: MOV RO,-(SP) 

858 004100 005015 1$: CLR (5) sCLEAR OLD DATA 

859 004102 012737 O00007 004254 MOV #7,CNT >SET CHAR COUNT 

860 004110 105777 175776 28: TS1B aTKCSR -WAIT FOR CHAR 

861 004114 100375 BPL 2% 


_ a A A SE 


( 7DMBDO 
CZDM 


DMBD .P11 


O32 Os C9 Op Go OP OO Oo 
NNN 


NNN 
SONG VS umn 


004252 
004254 


004256 


004 530 


004 352 
004 340 
004 342 
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175772 


175766 
000025 


000015 


000060 
000110 


004254 


175712 


900012 
175676 


175672 
175664 


000176 
000042 
004370 
175606 


000200 
000007 


000176 


175704 


001202 
000046 


004370 
004370 
004370 


001202 


2 


MOVB aTKDBR,RO 
BicB #200,R0 
MOVB 2 Fgh ae 


sSTRIP OFF PARITY 
;ECHO CHARACTER 


CMPB 5,R0 si3 11 A *U 

BEQ 5% ;BRANCH IF YES 
CMPB #15,R0 :I1S IT A <CR> 
BEQ é$ ;BRANCH IF YESS 


:CHECK FOR OQ-7 (8) 


BNE 7% ;BRANCH IF NOT 
ASL (5) 
ASL (5) 
ASL (5) sSHIFT DATA 
B1SB RO,(5) : INSET NEW CHAR 
DEC CNT 
BEQ 7$ ;ONLY 6 CHAR'S PLEASE 
BR 2$ NEXT CHARACTER 
6%: TSTB aTPCSR 
BPL 6% sWAIT FOR READY 
MOV #12,aTPDBR :; TYPE <LF> 
8$: TSTB aTPCSR 
BPL 8$ WAIT FOR READY 
CLR aTPDBR NEXT CHARACTER 
9$: TSTB aTPCSR 
BPL GE s;WAIT FOR READY 
TST (R5)+¢ sADJUST R5 
MOV (SP)+,R0 ‘ sRESTORE RO 
RTS R5 
7$: TYPE 
M1 
5$: TYPE 
$CTLU 
R 1$ :START OVER 
CNT: 0 


sROUTINE 10 CHECK FOR “*G BEING TYPED 


KBDINTT:CMP #SWREG, SWR 
BNE 1$ 
CMP a#42 ,a#46 sACT11? 
BEQ 1$ :BR IF YES 
CLR TMP 1 :;CLEAR ‘EMP AREA 


sFETCH THE BUFFER 


MOVB OTKDBR, TMP 1 
;STRIP OFF PARITY 


BICB #200, TMP 


CMPB #7,1MP) sWAS IT *G 
BNE 1$ : NOP 
CNILU 


;G0 CHANGE IT 
1$: RT] sEXIT 


sROUTINE TO CHANGE CONTENTS OF SWREG(LOC 176) 
CNTLUU: CMP @SWREG, SWR 


BNE FAJAG 
TYPE 


SEG 0018 


C7D0MBD0 1 i DAIA TSTS 
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0 


004410 


004412 


004470 


0135111 


004537 
000176 
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005112 


004076 
000007 
004370 


000006 


177777 


000176 


000006 


004254 
174572 


000004 
174544 


001202 
001204 


G 
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TMP 1: 


FAJAG: 


SUSWRR: 


SSWREG 


RS OACNY 


5. RECD 


a7,CNT 
FAJAG 
TMP 1 aSWR 


a46,-(SP) 
a#4,-(SP) 
#1%,a084 

laa 


3% 

(SP)+,(SP)+¢ 
#SWREG, SWR 
ADISPREG, DISPLAY 
(SP)+,a84 
(SP)+,a#6 


sCONVERT TO ASCII 


:GET THE TMP! & 
sPUT IT HERE 


;CHANGE CONTENTS OF SWREG 


> SAVE VECTORS 


>SET UP FOR TIMEOUT 
sREFERENCE HARDWARE SWITCH REGISTER 


;ADJUST STACK 

>POINT TO SOFTWARE SWITCH REG 
;POINT TO SOFT DISPLAY REG 

sRESTORE VECTORS 


rere ~ ee 


SEG O01 


ot) ee te eee ee ee ee = 0 ee oe 


(20 


004472 


004614 
004616 


004740 
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103361 
005760 
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001406 
905024 


175026 


004524 
005200 


001600 
005200 


005200 


007526 
005200 


000006 
007062 


001600 


002446 
006666 
010101 
000001 
002140 
002140 
005222 
001440 


000002 
001566 


001440 


30A(1052) 


175046 


002446 


001572 


174652 
001566 


002140 


H 
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- SUBROUTINE TG TRANSMIT ON ALL LINES WITH A DELAY BETWEEN TRANSMITTING 


[ON SUCCESSIVE LINES. 


THE DELAY FOR THE TEST IS SUPPLIED BY THE 


sCALLING JSR INSTRUCTION. DATA IS CHECKED AFTER ALL 
sLINES HAVE FINISHED TRANSMITTING. 


DLYXMT: 


10$: 


2%: 


3$. 


NOP 
M 


TUMTAB 


#CAT ,ABASREG 


7, @#1DENT 
aC SR 


(5)+,10% 
5, a#BMOVE 


a#TUMTAB 
5, a@#BMOVE 


5, a@#BMOVE 


a4: NOBUF 
5, @#BMOVE 


#6 ,PRGNUM 
+6 


PRG3A 
(5)4+,%4 


#TUMTAB aa#TTPTR 


@#CLKINT,21 
WRINT,(1)¢ 


@*#CLKLVL,(1)+ 


ATINT,(1)¢ 


OAXMILVL,(1)+ 


PRGNUM 
.*6 
PRGIA 


#BiT12+B116+B110, aCSR 


#1 ,O#LINBIT 
aw INE 

LINE ,20 

5. @aXM110 
44,WCT(0) 
e$ 


#2,L INE 
LINBIT 
1$ 


wOT(0) 


:BEGIN TEST 
;SET UP BASE REGISTER 


; TRANSMIT LINE # ON EACH LINE 


sNG? 


;GFT MESSAGE ADDRESS 
;LOAD SUTPUT BUFFER 
;WITH DATA TO 

:BE TRANSMITTED 


:CLEAR TUMBLE 


> TABLE (200 


:BYTES) 


>CLEAR CHARACTER COUNT TARLE 


sCLEAR ALL 

sLINE'S INPUT 

: BUFFERS 

:(16. BUFFERS OF 100. 


CHARS. EACH) 


:GET # OF CHARACTERS TO TRANSMIT BEFORE 
; TRANSMITTING ON NEXT LINE 

> INITIALIZE TUMBLE TABLE POINTER 

>GET RECEIVER VECTOR ADDRESS 

;LOAD RECEIVER VECTOR 

;AND PRIORITY LEVEL 

;LOAD TRANSMITTER VECTOR 

;AND PRIORITY LEVEL 

;RUNNING PROGRAM 0? 


RETURN TO PROGRAM 1 CODE 
:SET 1E & GO BITS 


>LINE # X2 TO RO 
NOP 


; TRANSMIT 64 CHARACTERS 
;ON LINE # AS SPECIFIED IN ADDRESS LINE 
WAIT FOR THE WORD COUNT TO DEC 10 THE 
;CORRECT VALUE BEFORE STARTING NEXT LINE 
:FORM NEXT LINE NUMBER 
sSHIFT LINE BIT 
;START NEXT LINE 
WALT FOR LAST LINE 10 FINISH 


OE EE 


l 
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1002 004744 001375 BNE 3$ 
1003 004746 062777 177400 176566 Bic #177400. aCSR ;CLEAR ODD BYTE OF CSR 
1006 004754 062700 000001 31%: ADD #1,R0 sWAIT FOR RECEIVER 16 RECEIVE 
1005 0604760 001375 BNE 718 :ALL TRANSMITTED DATA 
1006 004762 017737 1764556 002122 MOV @BAR RCVDA' ;GET AND TEST BAR CONTENTS 
1907 004770 001410 BEQ 4¢ :BRANCH IF IS CLEAR 
1008 006772 005037 002124 CLR ¥MTDAT 
1009 004776 005077 174540 CLR acsrR 
1010 005002 005077 174536 CLR @BAR 
1011 005006 104015 ERROR 1 ;ERROR! BAR DID NOT CLEAR IN SUFFICIENT TIME 
1012 005010 000403 we 5$ EXIT TEST 
10153 005012 000240 4%: NOP 
10146 005014 004737 005320 JSR 7, @#CHKDAT :GO TEST DATA 
1015 005020 022626 5%: CMP (6)+,(6)¢ >RESET THE STACK 
a 005022 104012 SCOPE ; SCOPE 
1018 
1019 ; SUBROUTINE TO TRANSMIT ON EACH LINE ITS LINE NUMBER (CRLF XM CRLF). 
1020 005024 005037 002140 IDENT: CLR @a_ INE ;GET LINE NUMBER 0 
1021 005030 012737 900001 001566 MOV #1,a#LINBIT :GET LINE 8I1T 
1022 005036 013702 002140 1$: MOV LINE ,%2 
1023 005042 016262 012706 001400 MOV 10(2),CAT(2) :LOAD CAT 
1024 005050 012762 177772 001440 MOV #-6,WCT(2) :LOAD WORD COUNT 
1025 005056 053777 001566 174460 BIS LINBIT,@BAR :SET BAR BIT 
1026 005064 062737 000002 002140 ADD #2,L INE :FORM NEXT LINE NUMBER 
1027 005072 006337 001566 ASL LINBIT ;FORM NEXT LINE BIT 
1028 005076 103357 BCC 1$ ;BRANCH IF NOT DONE 
1029 005100 005777 174440 2$: 1Si a@BAR :WAIT FOR BAR TO CLEAR 
1030 005104 001375 BNE 2$ 
1031 005106 000240 NOP 
ose 005110 000207 RTS 7 sEX11 SUBROUTINE 
1034 sOCTAL TO ASCII] CONVERT ROUTINE 
1035 005112 104013 OACNV: SAVREG >SAVE REGISTERS ON THE STACK 
10356 005114 013537 005176 MOV a(5)+,2$% :GET OCTAL VALUE. 
1037 005120 012501 MOV (5)4,%1 :GET DESTINATION ADDR. 
1038 005122 012502 MOV (5)4,%2 :GET CONVERT COUNT. 
1039 005124 060201 ADD 42,%1 :DEVELOP ADDR TO STORE 1ST CHAR, 
1040 005126 013703 005176 1$: MOV 2$,%5 
1041 005132 042703 177770 BIC #177770,%3 ; ISOLATE LEAST SIGNIFICANT DIGIT. 
1042 005136 062703 000060 ADD #60,%3 sCONVERT DIGIT TO ASCII. 
1043 005142 11034) MOVB 43.-(1) >STORE ASCI] CHARACTER. 
1044 005144 042737 000007 005176 BIC #7,2% 
1045 005152 006037 005176 ROR 2% 
1046 005156 006037 005176 ROR 2$ 
1047 005162 006037 005176 ROR 2$ 
1048 005166 005302 DEC %2 ;DONE ALL DIGITS? 
1049 005170 001356 BNE 1$ ;BRANCH IF NOT DONE. 
1050 005172 104014 RSTREG SRESTORE THE REGISTERS 
1051 005174 000205 RTS x5 ;DONE. EXIT, 
1052 005176 000000 2$: OPEN 
1053 
1054 
1055 
1056 ;SUBROUTINE TO MOVE A VARIABLE NUMBER OF BYTES. 
1057 005200 104013 BMOVE: SAVREG -SAVE REGS, 








- 


J 
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012501 “Ov (5)¢,2%1 :GET''FROM' ADDRESS 
012502 MOv (5)+,%2 :GET''TO' ADDRESS 
012503 MOV (5)4,%3 >GET COUNT 

112122 1%: MOVB (1)4#,(2)¢ sMOVE BYTE 

005303 DEC x3 :DECREMENT COUNT 
001375 BNE 1$ :BRANCH IF NOT DONE. 
104014 RSTREG :RESTORE REGS. 
000205 RTS 25 ;DONE EXIT 





ie ee) Qe ee oe mn ee eee 








sd K 2 
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25-JUL-79 15 SEO 002% 
1066 
067 
068 7 SUBROUTINE TO TRANSMIT DATA. SUBROUTINE CALLED BY 
069 7 JSR S,XMIITD 
070 005222 000240 XMITD: NOP 
071 005224 010046 MOV 20,-(SP) >SAVE RO ON THE STACK 
072 005226 013700 002140 MOV @#LINE,%0 :GET LINE 
073 005232 012760 007362 0014006 MOV WOUTBUF,CAT(O) ;LOAD FIRST CHAR ADDRESS IN CAT 
074 005240 012560 001440 MOV (5)4+,WCT(0) ;LOAD WORD COUNT INTO LINE'S TABLE ADDRESS 
075 005244 053737 001566 001562 B1S Q#LINBIT,A@#BARIM;:LOAD LINE POSITION INTO BAR IMAGE 
ore 005252 053777 001566 17464264 BIS LINBIT,a@BAR Shed eT Tans ON LINE SPECIFIED 
7 IN LINBIT 
078 005260 012600 MOV (SP)+,%0 :RESTORE RO 
079 005262 000240 NOP 
4 005264 000205 RTS 5 EXIT 
082 ;SUBROUTINE TO FORM LINE BIT POSITION WITH THE LINE # IN LINE 
083 005266 010046 GILINB: MOV 0,-(SP) >SAVE RO ON THE STACK 
084 005270 005037 001566 CLR a*#LINBIT 
085 005274 013700 902140 MOV a#LINE ,%0 :GET LINE 
086 005300 000261 SEC >SET CARRY 
087 005302 006137 001566 1$: ROL LINBIT :SHIFT LINE BIT 
088 005306 162700 000002 SUB #2,%0 ;SUBTRACT 2 FROM LINE NUMBER 
089 005312 100373 BPL 1$ 
090 005314 012600 MOV (SP)+,%0 :RESTORE RO 
091 005316 1)00207 RTS 7 EXIT 
092 
093 
094 ;SUBROUTINE TO CHECK TRANSMITTED DATA 
095 005320 104013 CHKDAT: SAVREG >SAVE THE REGISTERS ON THE STACK 
096 005322 000240 NOP ; NOP 
097 005324 005001 CLR x1 ;CLEAR CHARACTER COUNT 
098 005326 012702 012626 MOV #INTAB,%2 :GET ADDRESS OF LINE'S INPUT BUFFER 
099 005332 005003 CLR x3 ;ADDRESS ;GET LINE COUNT 
100 0053354 010337 002140 1$: MOV 23, QaLINE sMOVE LINE # TO LINE 
101 005340 012237 002142 MOV (2)+, a4LINBUF :GET LINE'S INPUT BUFFER ADDRESS 
102 005344 005337 002142 DEC L INBUF ;SUBTRACT 1 FROM LINE'S INPUT BUFFER ADDRESS 
105 005350 005237 002142 2$: INC L INBUF > INCREMENT LINE'S INPUTi BUFFER ADDRESS 
104 005354 117737 174562 002122 MOVB @LINBUF ,a#RCVDAT ;GET RECEIVED CHARACTER 
105 005362 116137 007362 002124 MOVB OUTBUF (1), XMTDAT:GET TRANSMITTED CHARACTER 
106 005370 043737 002126 002124 BIC @#CARMSK,XMTDAT ; CLEAR UNTRANSMITTED BITS 
107 005376 104004 7 DATCHK ; COMPARE CHARACTERS 
108 005400 005201 INC %1 : INCREMENT CHARACTER COUNT 
109 005402 020127 000100 CMP 41,864. ;ALL CHARACTERS BEEN COMPARED 
110 005406 001360 BNE 2% >GO CHECK NEXT CHAR, IF NOT 
117 005410 005001 CLR a1 :CLEAR CHARACTER COUNT 
112 005412 005203 INC x5 . ; INCREMENT LINE COUNT 
113 005414 020327 000020 CMP %3,#10. ;ALL LINES CHECKED? 
116 005420 002745 BLT 1$ ;BRANCH IF ALL LINES NOT CHECKED 
115 005422 104014 RSTREG sRESTORE REGISTERS 
By 005424 000207 RTS 7 sEX11 SUBROUTINE 
118 
119 RECEIVER INTERRUPT SERVICE ROUTINE 
120 005426 000240 RINT: NOP * BEGIN 
121 005430 1040138 SAVREG ;SAVE THE REGISTERS ON THE STACK 


ee ee, 
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005432 
005456 
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CoOoOrortnrno 


005554 


005556 
005560 


005562 


005616 


005620 


005656 
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013701 


104015 


000005 
104012 


022701 


000002 


000240 
032777 


000002 
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001572 
001564 


001564 


160400 
001555 


012626 


012666 


001564 
001440 
002124 


001776 
001576 


000200 
001572 


060000 


060000 
173674 


100000 


001564 


002142 


174404 
002122 


173734 


173712 


173700 


173664 


2%: 


3$: 
;TYPE OUT SHOWS 
RESET 


4$: 


5$: 
6$: 


ERROR 1 


SCOPE 


asTIPTR.%1 :GET TUMBLE TABLE POINTER 

(1), TIDAT 7;GET TUMBLE TABLE ENTRY 

2% >;BRANCH IF VALID DATA ENTRY 
sERROR! FALSE INTERRUPT 

6% sEXIT 

(1) ,a#TIDAT 7;GET TUMBLE TABLE ENTRY 

6$ :G0 TG EXIT IF NO DATA ENTRY 

23 ;BRANCH IF VALID DATA ENTRY 

. sERROR! NO VALID DATA ENTRY INDICATOR 

(1) :CLEAR TUMBLE TABLE ENTRY 

#160400, ,a#TTDAT ; CLEAR ALL BUT CHAR. & LINE #@ 


TIDAT+1,%2 >PUT LINE # IN R2 (LINE WILL BE IN LSH) 


he 44 
INTAB(2) ,a#LINBUF >GET LINE'S INPUT BUFFER ADDRESS 
%2 ;SHIFT LINE @ 


435 
CNITAB(2) ,%3 ;GET LINE’S RECEIVED CHAR. COUNT 
CNTTAB(2) > INCREMENT CHARACTER COUNT 
43,LINBUF ;FORM ADDRESS WHERE CHAR. IS TO BE STORED 
TTDAT,@LINBUF = CHAR. IN LINE'S INPUT BUFFER 

iN 
WCT(4) ,RCVDAT :GET TRANSMITTERS WORD COUNT 
4% ;BRANCH IF WORD COUNT IS O OR NEGATIVE 
44, XMTDAT :GET LINE # OF FAILING LINE 


;ERROR! INCORRECT WORD COUNT IN 
FAILING LINE #, AND FAILING LINE*S WORD COUNT 

;STOP THE DM11 

EXIT TES: 


:1S THE TUMBLE TABLE POINTER AT THE 
>THE END OF THE TABLE 

;RESET POINTER 

: INCREMENT POINTER 


ee ere 
#TUMTAB=-2 ,%1 
(1)+4 


1$ >GG CHECK NEXT ENTRY 
#B1T7,aCSR ;CLEAR RECEIVER DONE FLAG 
Z1,TTPTR SAVE POINTER 


sRESTORE THE REGISTERS 
sEXIT SERVICE ROUTINE 


7 TRANSMITTER INTERRUPT SERVICE ROUTINE 
TINT: NOP : 


2%: 


> BEGIN 
WBITIG+BIT15,aCSR;TEST ERROR FLAGS 
1$ ;BRANCH IF NO ERROR FLAGS 
;ERROR! ERROR FLAG IS SET 
BITIG*BIT15,aCSR;CLEAR ERROR FLAGS 
aCSR ; TEST READY FLAG 
;BRANCH IF ori le CLEAR 


"4 ; 
#B1T15,aCSR ;CLEAR READY FLA 


SFQ 0074 


- SO ES ee ee ee aE 





— 
~ 
wr 


_YSNN 
O@nD 


ee 


ses 
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005714 
005720 


005726 


005730 
005734 
005736 


005740 


005746 


005750 
005754 
005756 


005760 


005766 


005770 


005774 


005776 


006000 


006006 


006010 
006014 








104600 
013421 


000137 
000000 


000000 


004537 
013743 
000000 


000001 


000002 


004537 
013745 
177720 


000005 


000008 


004537 


013743 


005720 002010 
002014 





earner eee e eee eee eee sss seeresnnetnreneneer ee ne ee 
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PRGO: TIPE 
PRGOM 

PRGOA: MOV #RTO,KSTART ;GET ADDRESS OF FIRST TEST 
CLR RTNNO ;CLEAR ROUTINE @ 
JMP SRSET 

PRGOR: MOV MRTO,KSTART :;GET ADDRESS OF FIRST TEST 
CLR RTNNO ;CLEAR ROUTINE NUMBER 


JMP GETRDY :GO AND START PROGRAM 
Atte Pee PPP PP PPP PCPS PSSST SPSS TTT IT ISSCC CCLCCLCCCCLCLCL CTE TT 
RTO: 0 ;ROUTINE # 0 * 
RT1 ;ADDR OF NEXT ROUTINE. " 
2 > LTERATION COUNT « 
es ;SCOPE ENTRY POINT. « 
K=X+ 


atte eee eR RRR RRR RRERSESES SESE SESE SESE SSSACSSSLLCOCCO SS Se 
;TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
:NEXT LINE. 
RTOA: JSR 5, DLYXMT :GO DO TEST. 
MSG1 : TRANSMIT THIS MESSAGE §& 
:DELAY THIS MUCH BETWEEN LINES 


hee eee eRe RRRREREESEESESESSE SESS OSES ASESESOSLCLOS . SS 


RT1: 1 sROUTINE # 1 ‘ 
RT2 ;ADDR OF NEXT ROUTINE. ° 
2 > LTERATION COUNT * 
ae > SCOPE ENTRY POINT. e 
X=X+ 


tbh PPP eee RRR eR RRERRRRERERERSERR ESSE ESESESESE SESE ALOSOSOCOALO OL © 2 oe oe 


> TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
s;NEXT LINE. 
RTIA: JSR 5,DLYXMT :GO DO TEST. 

MSG1 >; TRANSMIT THIS MESSAGE & 

- sDELAY THIS MUCH BETWEEN LINES 


SERA TERETE REET TEETER ETAT eee eee Ree Thee ee te eee 


RT2: 2 ;ROUTINE # 2 ° 
RT3 :ADDR OF NEXT ROUTINE. * 
2 >; ITERATION COUNT . 
phat P :SCOPE ENTRY POINT. 
KX=X+ 


SAALRAARARGASES RARER ESSSSRRESESSRERERE REESE ESE REESE ERE SERRE EES EOSOOCOOOS © SO 


:TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


;NEXT LINE. 
RT2A: JSR 5, DLYXMT ;GO DO TEST. 
MSG1 ; TRANSMIT THIS MESSAGE & 


-48. ;DELAY THIS MUCH BETWEEN LINES 
CPSP ACSC SESE S IAS OCSS TOSSA TCI S CITI T ILL TTT CLIC TLL LATTE TT 
R13: 3 ;ROUTINE # 3 ° 
R14 ;ADDR OF NEXT ROUTINE. ° 
2 ; LTERATION COUNT . 
ht oF ;SCOPE ENTRY POINT. ° 
X=X+ 


*“@eeeraereeerreereeereereeerereeeeeteeeaeeeeereeeeeaaaeeakaekeeetaeeeeetaeeeeeeeeeeeeeeese 
:TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
sNEXT LINE. 


RT3A: JSR 5,DLYXMT :G0 DO TEST. 
MSG1 :; TRANSMIT THIS MESSAGE & 


--—- So ee 


aN a — - - 


N 
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23-JUL-79 15:08 SEG 00264 
0069016 177710 -56. ;DELAY THIS MUCH BETWEEN LINES 
SOROS ATE HSH TEATATEAREARREREERATEE Ree eee eeeeee 
006020 000004 RT4: 4 sROUTINE #@ 4 e 
006022 006040 RTS ;ADDR OF NEXT ROUTINE. * 
006024 660002 2 ; ITERATION COUNT . 
006026 006030 RIGA :SCOPE ENTRY POINT. . 
000004 K=K+1 


hit tht hehe RRR RRRRRRRSSEEREEESEESESAESAELOSLLALLCLCLCCCALO Ee ST 
Bite ? — ON EACH LINE WITH A DELAY BEFORE STATING THE 
NEXT LIWE. 


006030 004537 004472 RT4A: JSR 5, DLYXMT :G0 DO TEST. 

006034 013743 MSG1 ; TRANSMIT THIS MESSAGE & 

006036 177704 -60. :DELAY THIS MUCH BETWEEN LINES 
tee eee RRR RERRRRERESEESEE EEC EE ASSESSES ESSA SCCSOC Oe. oS ee 

006040 000005 RTS: 5 sROUTINE # 5 ’ 

006042 006060 RT6 s;ADDR OF NEXT ROUTINE. « 

006044 000002 2 ; ITERATION COUNT : 

006046 006050 RT5SA ;SCOPE ENTRY POINT. . 

000005 X=X+1 


athe eR R RRR ERR E ESE EE SESE RSS ESSERSSOSSSSSOSOCLCE OS 2S 
Bs ot +: —_ ON EACH LINE WITH A DELAY BEFORE STATING THE 
SNEXT LINE. 


006050 004537 004472 RTSA: JSR 5, DLYXMT :GO DO TEST. 
006054 013743 MSG1 : TRANSMIT THIS MESSAGE & 
006056 177702 -62. :DELAY THIS MUCH BETWEEN LINES 
SRR ERRATA ATE EEE TATA TEETH Kee eee eee eee eee eee 
006060 000006 RT6: 6 sROUTINE # 6 * 
006062 006100 R17 ; ADDR OF NEXT ROUTINE. * 
096064 000002 2 : ITERATION COUNT . 
006066 006070 RT6OA ;SCOPE ENTRY POINT. * 
000006 X=X+1 
2 ft eee eee PRR RRR RRR R ERE RE RE RES ESOS OSES E SESE ESE SSOSOO OS 
sees " peeneet’ ON EACH LINE WITH A DELAY BEFORE STATING THE 
:NEXT LINE. 
006070 004537 004472 RT6A: JSR 5 DLYXMT :G0 DO TEST. 
006074 013743 MSG1 ; TRANSMIT THIS MESSAGE & 
006076 177701 -63. ;DELAY THIS MUCH BETWEEN LINES 
ft fee ee eee RRR EERE R REESE EERE SEER C OSES ESE SSS OSS S| 
006100 000007 R17: 7 sROUTINE # 7 : 
006102 006120 RT10 ;ADDR OF NEXT ROUTINE. . 
006104 000002 2 ; ITERATION COUNT * 
006106 006110 RI7A :;SCOPE ENTRY POINT. ‘ 
000007 X=X+1 
SERRATE TCA ATTHATATE HTT TATA ATA reres 
He pt 7 eet! ON EACH LINE WITH A DELAY BEFORE STATING THE 
sNEXT LINE. 
006110 004537 004472 RT7A: JSR 5 DLYXMT :GO DO TEST. 
006114 013743 MSG1 s TRANSMIT THIS MESSAGE & 
006116 177700 “64. :DELAY THIS MUCH BETWEEN LINES 
Serre eeererereeeeeee eres eee eee eaaKteeeectheeeeeeteteeeeeereeeneenee 
006120 000010 R110: 19 sROUTINE # 10 , 
006122 006140 R111 ;ADDR OF NEXT ROUTINE. . 
006124 000002 2 : ITERATION COUNT . 
006126 006130 RTIOA :SCOPE ENTRY POINT. . 
000010 K=X+} 


perettereererertaeereteaettinteeeeesaeeateaeeeseseeeeeeeeeeeeeeeeeeeeeteseee 


8 re re rt rt rt rt rt Ut rt rt Ot 


le eee ee ee ee eee 
EE FAA 


Peeve ewe 


O DMI! D 
PT 


006166 


006170 
006174 
006176 


006200 
006206 
006210 
006214 
006216 
006220 


006226 


006250 


006240 
006242 


AIA 1S1S MAC 
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0045357 
014044 
177740 


000011 


004537 
014044 
177720 


000012 


000012 


004537 
014044 
177710 


000015 


000013 


004537 
014044 
177704 


000014 


006014 


004537 
014044 
177702 


000015 
006260 


004472 


004472 


004472 


004472 


004472 


ee ee 
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TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


sWEXT LINE. 

RT10A: JSR 5 DLYXMT :GO DO TEST. 
MSG2 > TRANSMIT THIS MESSAGE & 
-32. >DELAY THIS MUCH BETWEEN LINES 

GROOT SASS AHTEAATEHETEAAEHRAEAAATARAEARAAAARHAREERERAREE Ree eeerese 

RT11: 11 sROUTINE # 11 * 
RT12 ;ADDR OF NEXT ROUTINE. 2 
2 >; ITERATION COUNT « 
nae ;SCOPE ENTRY POINT. t 
K=K+ 


thee R RRR SEEESEEEEAE SESE SESESSSSOCLCLCLOCCLCCC.. Se ee 
aa i eo ON EACH LINE WITH A DELAY BEFORE STATING THE 
sNEXT LINE. 


RTIIA: JSR 5, DLYXMT ;GO DO TEST. 
MSG2 ; TRANSMIT THIS MESSAGE & 
-48. ;DELAY THIS MUCH BETWEEN LINES 

Ah e eee P PP TPP TCSP T SETI TTA TICS TIL LTCC CTC TLT CTT 

RT12: 12 ;ROUTINE # 12 « 
R113 :ADDR OF NEXT ROUTINE. e 
2 > ITERATION COUNT * 
ae ;SCOPE ENTRY POINT. * 
K=X+ 


POPPE PCC CSL CS SPSS TCC PCTS CST TACT TTS TSI CTICSCOCLLCTICCLLCCLCLCTCL CLL L TTT 
aoe ie “shaueanaa ON EACH LINE WITH A DELAY BEFORE STATING THE 
>NEXT LINE. 


RT12A: JSR 5, DLYXMT ;GO OO TEST. 
MSG2 ; TRANSMIT THIS MESSAGE & 
-56. >DELAY THIS MUCH BETWEEN LINES 
ASSESS LOSER SSCS SECTS PETES ESET CCITT CISTI STAT CCT CCC TTT 
R113: 13 ;ROUTINE # 13 . 
RT14 >ADDR OF NEXT ROUTINE. * 
2 ; ITERATION COUNT * 
RT13A ;SCOPE ENTRY POINT. * 


X=X+] 


CPCS C SSSI CSPOT EPC SECT CSET CSCS TSC CSISICSISTCCTCTCLCT TLC CLC CLL LECT T ET 
pe es e prea ON EACH LINE WITH A DELAY BEFORE STATING THE 
;NEXT LINE. 


RT13A: JSR 5. DLYXMT :GO DO TEST. 

MSG2 : TRANSMIT THIS MESSAGE & 

-60. :DELAY THIS MUCH BETWEEN LINES 
SPRATT EERE ARERR TETRA TEETH Tee eee eee eee eter ee eeee 
R114: 14 ;ROUTINE # 14 . 

R115 ;ADDR OF NEXT ROUTINE. : 

2 :1TERATION COUNT ; 

RTI4A “SCOPE ENTRY POINT. . 

X=X4 


PSP e SSCS ELSES R CEE O SSE IC ESSE SSAC TTI e TITS CTA SCAT OLTOCCCLLCOCCTLLC LETT 
eee + — ON EACH LINE WITH A DELAY BEFORE STATING THE 
;NEXT LINE. 


RTI14A: JSR 5, DLYXMT ;GC DO TEST. 
MSG2 ; TRANSMIT THIS MESSAGE & 
-62. :DELAY THIS MUCH BETWEEN LINES 
SRRHRAT ORTH TTT TTT ATH T TTT HATTA ATA e ARERR eT Eee Teer e EES 
RT15: i5 sROUTINE # 15 ° 
R116 ; ADDR OF NEXT ROUTINE, ° 
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> ab ab ab ah ah ah ah ab al alt hile ie | 
NN NO OOOO SSO OSS HAAR ES 


ee et el ee ee ee ee we we 
wre —OOCOne VS wn — C O@ wo PEUN—OOBUS ARNO Oo. 


Lit 


Lt A tt 
ome OTN NN NNN 


a hak ah ah ab ad then 
000 C@BeOOOO® 
WN —OOOno we 


‘Pts 


lt el elt ett eel el elt el ll el le el lt el eel lt el el melt eel ee i a 


Pi 


006244 
006246 


006250 
006254 
006256 


006260 


006266 


006270 
006274 
006276 


006300 


006506 


006310 
006514 
006516 


006520 


006526 


006330 


006334 


006536 


006340 


006346 


006350 
006354 


23-JUL-79 1 


000002 


004537 
014044 
177703 


000016 


000016 


004537 
014044 
177700 


000017 
006320 
000002 
006310 
000017 


004537 
014144 
177720 


000020 


000021 


004537 
014144 


004472 


004472 


004472 


004472 


004472 


2 > 1TERATION COUNT * 
Wis, :;SCOPE ENTRY POINT. e 
=4 


‘tthe RRR R RRR RRRSEEEEECAEESESESSSESESLCLSSLCLCCCOCCCe Se ee ee ee 


TEST 10 TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


;NEXT LINE. 
RTI5A: JSR 5 DLYXMT :GO DO TEST. 

MSG2 ; TRANSMIT THIS MESSAGE & 

-63. ;DELAY THIS MUCH BETWEEN LINES 
hhh eR RRR RRR RRSE SEE SESESSESE SESSA. . Se ee 
RT16: 16 ;ROUTINE # 16 ‘ 

R117 ;ADDR OF NEXT ROUTINE. . 

2 ; ITERATION COUNT ; 

RTI6A ;SCOPE ENTRY POINT. . 

X=X¢ 


att tee eee eee RRR E RR RR RERR REESE SESSA REESE ESOC OCLCLCCLC. eo eS ee 


TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


7NEXT LINE. 
RT16A: JSR 5 DLYXMT :GO DO TEST. 
MSG2 ; TRANSMIT THIS MESSAGE & 
“64. ;DELAY THIS MUCH BETWEEN LINES 
2 fff fee eee eee PORE RRR RRSP R ESE RCA CE ESSE SSSA SSS SSOCSACACALACLeL. Se 2 2 
R117: 17 ;ROUTINE # 17 . 
RT20 ;ADDR OF NEXT ROUTINE. . 
2 ; ITERATION COUNT . 
RTIZA :SCOPE ENTRY POINT. : 
X=X4 


thet teehee eee PRR RRR RRR RRR R EEE COPE CESSES ASSES SSOCSOCLACLCCOCLCCC. SS 
sos ee: ——! ON EACH LINE WITH A DELAY BEFORE STATING THE 
sNEXT LINE. 


RT17A: JSR 5, DLYXMT :GO DO TEST. 
MSG3 ; TRANSMIT THIS MESSAGE & 
~48. ;DELAY THIS MUCH BETWEEN LINES 

OPPS PCS ERS S ESSE PCS E PETES ETOCS EST T TISTICAL CCA T CTT LTT LPT TTT TTT te 

RT20: 20 ;ROUTINE # 20 ‘ 
RT21 ;ADDR OF NEXT ROUTINE. * 
2 ; LTERATION COUNT * 
he ;SCOPE ENTRY POINT. e 
X=X+ 


RARER TEAR TEER TATA AAT e ee 


> TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


;NEXT LINE. 

RT20A: JSR >, DLYXMT :GO DO TEST. 
MSG3 ; TRANSMIT THIS MESSAGE & 
-60. >DELAY THIS MUCH BETWEEN LINES 

Citi peepee eee RARER ESESSESEL ERE SEES SEP ESE PERE EES SE eee EC eSSSS SESS 

RT21: 21 ;ROUTINE # 21 ; 
R122 ;ADDR OF NEXT ROUTINE. . 
2 : ITERATION COUNT . 
RT21, “SCOPE ENTRY POINT. . 
X=X+ 


SERCH HERAT ATTA AAT ATTA AT ATA e ARR eee TEE 
;TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
N 


sNEXT LINE. 
RTZ21A: JSR 5, DLYXMT :GO DO TEST. 


MSG3 ; TRANSMIT THIS MESSAGE & 


St Q 0028 


me ne ee ~ re ee ee ee eee ee +e + 


D 
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CZDMBD.P11 


EPP r rrr rrr 


NHN — 
OOOGn FS YVrwnr—o 


OD ee ee ee ee ee ee DD ee ED a ee ee ee ae en ee ee = 3 = We 
EPP rrrrsr 
MIMaMIPsNsTMINS Po 
OCBWNO VF WN —-OO@Onevrwn— 


oo? ee a a a a a at ee a a ye 
S wt et rt rt re i tp 
— 


006566 


006370 
006374 
006376 


006400 


006406 


006410 
006414 
006416 


006420 


006426 


006430 
006454 
006436 


006440 


006446 


006450 
006454 
006456 


006460 
006462 
006464 
006466 


177701 


000022 


004537 
014144 
177700 


000023 
006420 
000002 
006410 
000023 


004537 
014244 
177740 


000024 
006440 
000002 
006430 
000024 


004537 
014244 
177710 


000025 
006460 
000002 
006450 
000025 


004537 
014244 
177702 


000026 


000026 


25-JUL-79 15:08 


004472 


004472 


004472 


004472 


-63. ;DELAY THIS MUCH BETWEEN LINES 
FERRARA AAA A AEH T ATER A HAE TATA TETHER ARATE eh Aeeeeeetes 
wise? 6 =e ;ROUTINE # 22 * 
R125 :ADDR OF NEXT ROUTINE. e 
2 > ITERATION COUNT * 
RT22A ;SCOPE ENTRY POINT. e 


K=X4+] 


hhh hee eee ORR RRR RREEEESESAES ESSE SERA ESOSLOSCLLCLCCCLLS See ee 


TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


;NEXT LINE. 

RT22A: JSR 5, DLYXMT :GO DO TEST. 
MSG3 > TRANSMIT THIS MESSAGE & 
-64. :DELAY THIS MUCH BETWEEN LINES 

2th tte RRR RRR RRR RSE ERSASEE SESSA SESESSCSASOCLOCLALCC A. Se ee ee 

R123: 23 sROUTINE # 23 « 
R124 ;ADDR OF NEXT ROUTINE. * 
2 > 1TERATION COUNT . 
he bon ;SCOPE ENTRY POINT. * 
K=X+ 


2th toe eee eee eee RRR RRR RRR RRERRSSEEECE CESSES SASSESOESOCLACCLCLCLC. OS SSS 2 2 2 
eo TO ee ON EACH LINE WITH A DELAY BEFORE STATING THE 
;NEXT LINE. 


RT23A: JSR 5.DLYXMT :GO DO TEST. 
MSG4 ; TRANSMIT THIS MESSAGE & 
“32. >DELAY THIS MUCH BETWEEN LINES 

EP PPS CSCC SESE S EEE E SCS ESE S TT TTI TT TIC CCLSSCCT OCCT CCCP LCT LTT TTT TTT 

RT24: 24 ;ROUTINE &# 24 * 
R125 :ADDR OF NEXT ROUTINE. af 
2 > ITERATION COUNT * 
rs ;SCOPE ENTRY POINT. e 
X=X+ 


SRO R ETE ERAEE ARERR EET TATRA TRA eA eee eee eee ee 
;TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
sNEXT LINE. 


RT24A: JSR 5 DLYXMT ;GO DO TEST. 
MSG4 ; TRANSMIT THIS MESSAGE & 
-56. ;DELAY THIS MUCH BETWEEN LINES 

SURE REEEE EEE A ETE TEE A ETT E ARERR eee eee eee eee eredet 

R125: 25 ;ROUTINE # 25 . 
R126 ;ADDR OF NEXT ROUTINE. : 
2 ; ITERATION COUNT . 
RI25A ;SCOPE ENTRY POINT. : 
X=X¢ 


OPPS S PSEC OCS S TOR AT CSC CT CSE CATAL IC TCI TTC SSAC TC CCT CLITA COCCTLTCLTOCCL ALA LTT 
;TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
;NEXT LINE. 


RT25A: JSR 5, DLYXMT :GO DO TEST. 
MSG4 : TRANSMIT THIS MESSAGE & 
“62. :DELAY THIS MUCH BETWEEN LINES 

SRR T KET TET HH ETEK EET eeeeere reese 

R126: 26 -ROUTINE # 26 . 
R127 :ADDR OF NEXT ROUTINE. . 
M4 : 1TERATION COUNT : 
R26, -SCOPE ENTRY POINT. . 
X=X¢ 


“See ereerreeeeeraeterereeeeeseeeeeeeteeeeeaeataaaeeaeeeeeteanteeeeteeeeeweetesever 
. 


SEQ 0029 
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C2 
( 7D0MBD 


SD me cD ee ee ee ee De ee ee ee wee ee ed eed ee eed 
ath I. Ph he dF 

™N NN ™N NNN 

BNSF WM—-O OB UErwn—oO 


EPP rrrrrF 
SS SP SP OCO@ 


1490 


Pi} 


006470 
006474 
006476 


006506 


006510 
006514 
006516 


006520 
006522 
006524 
006526 


006530 
006534 
006556 


006540 


006546 


006550 
006554 
006556 


006560 
006562 
006564 
006566 


006570 
006574 
006576 


006600 
006602 


004537 
014244 
177700 


000027 


000027 


004537 
014344 
177720 


000030 


000030 


004537 
014344 
177710 


000031 
006560 
000002 
006550 
000051 


004537 
014344 
177704 


000032 


000032 


004537 
0143544 
177702 


000033 
006620 


004472 


004472 


004472 


004472 


004472 


E 
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TEST TO TRANSMIT ON EACH CINE WITH A DELAY BEFORE STATING THE 


NEXT LINE. 

RT26A: JSR 5 DLYXMT :GO DO TEST. 
MSG4 > TRANSMIT THIS MESSAGE & 
-64. :DELAY THIS MUCH BETWEEN LINES 

POTS AEEAAAA AAA EATEEAAATETARETATEEARTTARAREERHETAHREH ERE ee eee eee 

R127: 27 sROUTINE # 27 * 
R130 sADDR OF NEXT ROUTINE. * 

>; 1TERATION COUNT * 

nee :;SCOPE ENTRY POINT. . 
X=X+ 


2 ieee RRR RRR ER REEE ESE SE ESSE SESS O. SS ee 


TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 


;NEXT LINE. 

RT27A: JSR 5,DLYXMT :GO DO TEST. 
MSGS > TRANSMIT THIS MESSAGE & 
-48. ;DELAY THIS MUCH BETWEEN LINES 

a eee PPP RRR RRR REESE CESSES ESSE SSLOSALASLCCLCC Oe Se 2 2 

R130: 30 sROUTINE # 30 . 
R131 :ADDR OF NEXT ROUTINE. * 

>; 1TERATION COUNT * 

hin ;SCOPE ENTRY POINT. * 
X=X+ 


FREER EARTH eee eee eee 
- TEST TO = ON EACH LINE WITH A DELAY BEFORE STATING THE 
sNEXT LINE. 


RT30A: JSR 5,DLYXMT :GO DO TEST. 

MSG5 ; TRANSMIT THIS MESSAGE & 

-56. ;DELAY THIS MUCH BETWEEN LINES 
SUPRA EEE eee eee 
R131: 31 sROUTINE # 31 . 

R132 ;ADDR OF NEXT ROUTINE. * 

2 : ITERATION COUNT ‘ 

ae :SCOPE ENTRY POINT. * 

X=X4+ 


eee eee CSCS ES ESSEC ATES TCS AL CATT S TASCA ASSISTS CLCTOCTCCCTOCCTCCTCCoLL LTE 
;TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
;NEXT LINE. 


RT31A: JSR 5 DLYXMT :GO DO TEST. 

MSG5 : TRANSMIT THIS MESSAGE & 

-60. :DELAY THIS MUCH BETWEEN LINES 
SERRATE KET T TATA RAREE EE ERE ETRE TA EKAARAeR Ae ee eke eeeetereeteeee 
R132: 32 :ROUTINE # 32 . 

R133 -ADDR OF NEXT ROUTINE. . 

M4 : 1TERATION COUNT ‘ 

RT52A -SCOPE ENTRY POINT. : 

K=X¢ 


,eeerreeereeei gee ee eee eee eee eee eee eee ere eee eee etertareeeereeeeeeees 


;TEST TO TRANSMIT GN EACH LINE WITH A DELAY BEFORE STATING THE 
sNEXT LINE. 


RT32A: JSR 5, DLYXMT :GO DO TEST. 

MSGS ; TRANSMIT THIS MESSAGE & 

-62. ;DELAY THIS MUCH BETWEEN LINES 
,eetereeerereeeeeeee estate ree eee eee eee eee eee eheateteeneeeteneeeene 
R133: 33 ;ROUTINE # 33 “ 

R134 :ADDR OF NEXT ROUTINE. : 


SEQ 0030 


ee ed et 


— OO ee ee ee emia: quia 


F 
0 DM11 DATA TSTS MACY11 30A(1052) 24-JUL-79 08:37 PAGE 31 
P11 25-JUL-79 15:08 SEQ 0031 © 


006604 000002 2 ITERATION COUNT * 
006606 006610 RT35A ;SCOPE ENTRY POINT. e 
000033 K=X+1 | 


TERRE AAEAA THE HEATER ATTACHE AKARHe eee HAH etereeeeeeeeeeeeeeeeere 


7 TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
sNEXT LINE. 


006610 004537 004472 RT33A: JSR SDLYXMT :GO0 DO TEST. 
006614 014344 MSG5 > TRANSMIT THIS MESSAGE & 
006616 177701 -63. :DELAY THIS MUCH BETWEEN LINES 
pO TEA TATE EEE ETHER TATE TATE TTA ARERA Tee e eee etererereee 
006620 000034 R134: 34 >ROUTINE # 34 * 
006622 177777 RT35 ;ADDR OF NEXT ROUTINE. ‘ 
006624 000002 2 ; ITERATION COUNT . 
006626 006630 RT34A :SCOPE ENTRY POINT. * | 
000034 K=X41 | 


SRA ERAT ETRE TATE TATE TTA TATA eee eee eee terre 


;TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 
*NEXT LINE. 


006630 004537 004472 RT34A: JSR 5 DLYXMT :GO DO TEST. 

006634 014344 MSGS :TEXNSMIT THIS MESSAGE & 

0066436 177700 -64. :DEL*Y THIS MUCH BETWEEN LINES 
177777 R135=-1 





—_— Se ee |e h(i eee lOO ee ee Oe ee ee |U ee 


G 
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15:08 


CZ7OMBDO DMI! DATA T1515 
( 1 SES OO65e 


ZDMABD .P11 25-JUL-79 


sPRGI- DATA TESTS ALL LINES SIMULTANEOUSLY. DATA TRANSMITTED IS ‘THE 
;QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 1234567890' 
006640 104000 PRGI: TYPE : TYPE 
006642 013447 PRGIM : PROGRAM TITLE 
006644 022737 000176 001202 PRGx: CMP #SWREG, SWR sSEE IF SWITCH-LESS 
006652 001001 BNE PRGIR >BRANCH IF NOT 
006654 104020 CNILU ;GET SWREG SETTINGS 
006656 004537 004472 PRGIR: JSR 5 DLYXMT :;GO 10 DLYXMT TO SET UP DM11 
006662 015743 MSG1 >MSG1 WILL BE THE DATA TRANSMITTED 
006664 177700 -64 :D0 NOT DELAY 
006666 012737 007362 001400 PRGIA: Moy #OUTBUF ,CAT :LOAD CURRENT 
0.°474 004537 005200 JSR 5, BMOVE ;ADDRESS TABLE 
006 00 001400 CAT :10 POINT TO 
006/92 001402 CAT+2 : OUTBUF 
00674 000040 o2. 
006706 012737 177700 001440 MOV #-64.,WCT ;LOAD WORD COUNT 
006714 004537 005200 JSR 5 ,,BMOVE 710 -64. 
006720 001440 wCT 
006722 001442 WCT+2 
006724 000040 32. 
006726 012777 010100 172606 MOV MBITIZ2+BIT6,aCSR;SET TRANSMITTER & RECIEVER IE BITS 
006734 023727 002446 000004 CMP PRGNUM, #4 ;RUNNING PROGRAM #2? 
006742 001403 BEQ +10 
006744 052777 000001 172570 BIS #BITO,aCSR ;SET THE GO BIT 
006752 012777 177777 172564 MOV #-1,9BAR ;START TRANSMITTING ON ALL LINES 
006760 005777 172560 1ST @BAR ;WAIT FOR ALL LINES TO COMPLETE 
006764 001375 BNE 74 
006766 005205 INC 45 
006770 001376 BNE 72 
006772 005077 172544 CLR acsR 
006776 023727 002446 000004 PRGIC: CMP PRGNUM, #4 :DO0 NOT CHECK DATA JF RUNNING 
007004 001402 BEO PRG1D :PROGRAM # 2 
007006 004737 005320 JSR 7, CHKDAT :GO CHECK RECEIVED DATA 
007012 104000 PRGID: TYPE s TYPE 
007014 013303 M2 ; "PRGEND' 
007016 012706 001200 PRGIEX: MOV #SPBOT,SP ;RESET THE STACK POINTER 
007022 000715 BR PRGIR 3;GO RESTART TEST 
;PRG2=-PROGRAM 2 RUNS PROGRAM 1 EXCEPT FOR THE DATA CHECKING 
;WHEN ALL LINES ARE FINISHED TRANSMITTING. THIS ALLOWS THE DATA 
> TRANSMITTED TO BE SENT TO TERMINALS. BEFORE STARTING THIS PROGRAM 
SREMOVE THE JUMPERS CONNECTING THE TRANSMITTERS 10 THE RECEIVERS. 
007024 104000 PRG2: TYPE ; TYPE PROGRAM TITLE 
007026 013527 PRG2M ;AND INSTRUCTIONS 
007030 000137 006644 PRG2R: JMP PROX ;GO RUN PRG! 


a CO we wm 


. 7DMBDO 
(708 


on D 


DPI) 
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15:08 


000176 


004472 


001600 


000001 


001572 
001564 
040000 
160400 


001566 
001566 
060000 


001776 
001576 


001202 


001572 


172420 


001564 
001564 


172332 
172522 
172310 
172276 


007562 
001440 


172244 


sPRGS-ECHO TEST THIS PROGRAM ECHOS BACK DATA RECEIVED FROM ANY DM11 


; TERMINAL(S) | 
;NOTE: THIS TEST IS THE ONLY TEST THAT INSURES PROPER OPERATION 
DM11 DISTRIBUTION PANEL LOGIC. 


“OF THE 
PRG3: 


PRGS5R: 


PRG3A: 


RINT3: 


RINT3A: 


NONAC1: 


RINT 3B: 


: TYPE PROGRAM 
s TITLE 
ASWREG, SwR 7SEE IF SWITCH-LESS 
PRGS3R ;BRANCH IF NOT 
:GET SWREG SETTINGS 
5 DLYXMT :USE PART OF THE 
;DLYXMT ROUTINE TO 
;SET UP DM11 
#TUMTAB,TTPIR >; INITIALIZE SOFTWARE POINTER 
CLKINT,%1 ;LOAD RECEIVER 


MRINT5,(1)¢ 
CLKLVL,(1)+* 
MTINT3,(1)¢ 
XMTLVL,(1)+ 
a et ae >SET IE AND GO BITS 


¢ 


;AND TRANSMITTER 
>VECTORS AND PRIORITY 
;LEVELS 


20 

o*2 

TIPIR,41 >GET SOFTWARE POINTER 
(1), TTDAT :GET TUMBLE TABLE ENTRY 
RINT 3X sEXIT IF NO ENTRY 

(1) >CLEAR ENTRY 
#BITIG,TIDAT ;WAS BREAK RECEIVED 


RINT5B >DO0 NOTHING ABOUT IT 


#160400, TTDAT >CLEAR ALL BUT LINE # AND DATA 
TIDAT#1 ,%2 >GET LINE NUMBER 

42,LINE >FETCH LINE NUMBER 

7,GILINB >FORM LINE BIT FOR BAR 
LINEI1T,@BAR >1S THIS LINE ACTIVE 

NONACT ;LINE NOT ACTIVE 

Pe aE cciey ;WAIT FOR LINE 
#B1T14+B1115,aCSR 

+4 ;BRANCH IF NO ERRORS 
#BIT15,aCSR ;CLEAR TRANSMIT DONE 


TIDAT ,OUTBUF (2) ;STORE RECEIVED CHARACTER 


#@-1 ,WCT(2) ;LOAD LINE'S WORD COUNT 
42,%3 

#OUTBUF ,%5 

%3,CAT(2) ;AND CURRENT ADDRESS 
LINBIT,@BAR sECHO RECEIVED CHARACTER 
#TUMTAB+176,%21 ; CHECK TUMBLE 


.*6 ; TABLE POINTER 
“ih hei a hal 
(1)¢ 






—_— 
(RELA TA LR LATA TA IRE REAMTARIATATATCAIACATDPT BPD DTDTT VS HS SS se wa -—.-—S-- 


(ZDMBDO DM11 DATA 1515 MACY11 30A(1052) 
¢ P11 25-JUL-79 15:08 


ZOMBD. 


1656 
1637 


007514 


007334 
007356 


607560 


000712 


000002 


000240 
aati. 


000002 


000206 


001572 


060000 


160000 


172216 RINIT3K: 


172174 


172162 


l 
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TINTS: 


3 


RINT3A 
SBIT7,aCSR sCLEAR CHARACTER DONE FLAG 
Z1,TIPIR sRESTORE POINTER 


sEXIT 
#Bi114*B1113,aCSR : ANY ERROR FiAGS SET 
.*4 


PBITIS*BITIG*BIT13,aCSR :CLEAR ALL FLAGS 
sEXIT 


SEQ 0! 





J 
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007562 000000 OUTBUF : 


1649 
1650 007526 - -OUTBUF +100. 
1651 007526 000000 LNOBUF: 0 
1652 007672 . =LNOBUF «100. 
1653 007672 000000 cNIBUF: 0 
1654 010036 -=LNIBUF +160. 
1655 010036 000000 LNZBUF: 0 
1656 010262 . =LNZ2BUF +100. 
1657 010202 000000 LN3BUF: 0 
1658 010546 --LN3BUF +100. 
1659 010346 000000 LNGBUF: 0 
1660 010512 - =LNGBUF +100. 
1661 010512 000000 LNSBUF: 0 
1662 010656 . =LNSBUF +100. 
1665 010656 000000 LN6OBUF: 0 
1664 011022 . =LN6BUF +100. 
1665 011022 000000 LN7BUF: 0 
1666 011166 .=LN7BUF +100. 
1667 011166 000000 LNIOBF: 0 
1668 011332 -=LNIOBF +100. 
1669 011332 000000 LNIIBF: 0 
1670 011476 .=LN11BF +100. 
1671 011476 000000 LNI2ZBF: 0 
167 011642 .=LN1I2BF +100. 
1675 011642 000000 LNI3BF: 0 
167 012006 .=LN13BF+4100. 
1675 012006 000000 LNIGBF: 0 
167 012152 .=LN1G4BF +100. 
012152 000000 LNISBF: 0 
012316 .=LN15SBF +100. 
012316 000000 LNI6BF: 0 
012462 -=LNI6BF +100. 
012462 000000 LNI7BF: 0 
012626 .=LN17BF +100. 
012626 0075264 INTAB: LNOBUF 
0126350 007672 LNIBUF 
012652 010036 LN2BUF 
012634 010202 LN3BUF 
012636 010346 LNGBUF 
012640 010512 LNSBUF 
012642 010656 LN6BUF 
012644 011022 LN7BUF 
012646 011166 LNIOBF 
012650 011332 LN11BF 
012652 011474 LNI2BF 
012654 011642 LN13BF 
012656 012006 LNIGBE 
012660 012152 LN15BF 
012662 012316 LNIOBF 
012664 012462 LN17BF 
012666 000000 CNTTAB: 0 
012706 .=CNTTAB+16. 
012706 012746 ID: IDENTO 
012710 012752 IDENT} 
012712 012756 IDENT2 


alt cece 


eesti 


~~ 
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C7DMBDO DM11 DATA TSTS 


CZDMBD.P11 23-JUL-79 

1753 

1754 

1755 013050 042045 
1756 013056 0462522 
1757 013064 051105 
1758 013072 047524 
1759 013100 051104 
1760 013106 020075 
1761 013111 045 
1762 013116 040040 
1765 013120 020040 
1764 013126 020040 
1765 013134 036527 
1766 013140 036445 
1767 0131463 04 
1768 013150 020110 
1769 013156 040440 
1770 013164 052517 
1771 013172 0646524 
1772 013200 042045 
1773 013206 051105 
17746 013214 041057 
1775 013220 020040 
1776 013226 020040 
1777 013234 040 
1778 013235 040 
1779 013242 020040 
1780 013245 11 
1781 013252 020043 
1782 013254 020040 
1783 013260 052045 
1784 013266 051120 
1785 013274 020115 
1786 013300 037445 
1787 013303 045 
1788 013310 041440 
1789 013316 041440 
1790 013324 052105 
1791 013330 051445 
1792 013336 020122 
1793 013344 047117 
17946 013352 051117 
1795 013360 050117 
1796 013366 047511 
1797 013371 123 
1798 013376 030060 
1799 013404 050040 
1800 013412 041440 
1801 013420 100 
1802 013421 045 
1803 013426 052040 
1804 013434 046101 
1805 013442 042516 
1806 013447 045 
1807 013454 052040 
1808 013462 051124 
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ree 50A(1052) 24-JuUL-79 08:37 PAGE 37 


030515 


100 
053523 
020040 


040527 
020040 

100 
047111 


040040 


— MO Mm — O — & — OO 


NEw ene 


020063 


020123 
036522 
020040 
042516 


041511 
030461 
054440 
051505 
040040 
020101 
051440 


020040 
035123 


020040 
020105 


020105 
040522 


052123 
041115 
046120 


051440 


052101 
020075 


027124 
040524 


046523 


MESSAGES 


WHERE: .ASCII 
SSWREG: .ASCII1 
SVALUE: .ASCII 
SCTILU: .ASCII 
WHICH: .ASCI] 
ERDAT: .ASCII 
AASB: ASCII 
AWAS: ASCII 
LINEM: .ASCI] 
ALINE: .ASCI] 
MO: ASCII 
M1: -ASCI]1 
M2: -ASCI1 
M3: ASCII 

ASCII 
PRGOM: .ASCI] 
PRGIM: .ASCII 


"%ZDM11 RECEIVE? VECTOR ADDRESS = a° 


*SSWR= a’ 
’ NEW= a' 


eS ' 


“SWHICH DM11 ARE YOU TESTING a° 


"ZDATA ERR S/8: ' 
: WAS: ' 

7 a’ 

"LINE @ 


"ZTYPE PROGRAM #9" 
eh hy 


'STEST CZDMB COMPLETE@' 


"*SET SR OPTIONS. NORMAL OPERATION’ 


"SR = 000000 P2ESS CONT.a' 


"ZDATA TEST AL’ LINES @Q° 


"ZDATA TEST TRANSMIT ON ALL LINES SIMUL TANEGUSI Ya" 


SEQ 0037 
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DM11 DATA TS1S MACY11 30A(1052) 24-sUL-79 C08:37 PAGE 38 
1 25-JUL-79 15:08 
013470 052111 047640 020116 
0135476 046101 0201146 044514 
0135504 0462516 020123 044523 
015512 052515 052114 047101 
013520 047505 051525 054514 
013526 100 
013527 045 0511246 047101 PRG2M: . ASCII ‘"ZTRANSMI7 TO IERMINALSA' 
013534 046523 052111 052040 
013542 020117 062524 046522 
013550 047111 046101 060123 
0135556 042445 044103 020117 PRG3M: . ASCII] ‘ZECHO TESTa’ 
015564 042524 052123 10 
013571 045 052520 020124 PRGI: .ASCII] ‘ZPUT CHAR IN SR(O-7), DELAY IN SR(8-15)a' 
013576 044103 051101 064440 
0135604 020116 051123 030050 
015612 033455 026051 042504 
013620 0460514 020131 047111 
013626 051440 024122 026470 
013634 032461 040051 
0135640 052045 050131 020105 POPPAR: .ASCII ‘XITYPE PARITY OPTION (N=NOT DESIRED O-ODD. E=EVENa’ 
0135646 040520 044522 054524 
0135654 047440 052120 047511 
013662 020116 047050 047075 
013670 052117 042040 051505 
013676 051111 042105 047440 
013704 047475 047104 020054 
013712 036505 055105 047105 
013720 100 
013721 045 020122 EMO: ett) “gn * 
0137246 0200460 020040 041520 ATNUMB: .ASCI] ' PC: * 
013732 020075 
0135734 020040 020040 020040 APC: ~ASTIL .° a' 
013742 100 
013743 015 012 MSG]: .BYTE 15,12 
013745 040 044124 020105 -ASCI] ° THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 1234567890' 
013752 052521 041511 020113 
13760 051102 053517 020116 
13766 047506 020130 052512 
13774 050115 042105 047440 
14002 042526 020122 044124 
14010 020105 040514 054532 
14016 042040 043517 020123 
14024 040502 045503 030440 
14032 031462 032464 033466 
14040 034470 060 
014044 EVEN 
4044 015 012 MSGe: -BYTE 15,12 
4046 177400 177400 
4050 177400 177400 
4052 1774600 177400 
4054 177400 177400 
4056 177400 177400 
4060 177400 177400 
4062 177400 177400 
4064 177600 177400 
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DMBDO rtd DATA TSTS MACYI1 30A(1052) 24-sUL-79 08:37 PAGE 41 
DABD.P11 23-JUL-79 15:08 SEQ 004! 
1977 014426 000200 00 
1978 014430 177377 177377 
1979 0146432 175775 175775 
1980 014434 167767 167767 
1981 0144636 137737 137737 
1982 014440 177500 177500 
19835 014442 015 012 WVTE 5.12 
1984 014444 015 012 TTE 15,12 
1985 000001 - END 


CZDMBDO DMI! DATA TSTS MACY11 30A(1052) 24-sUL-79 08:37 PAGE 43 


CZ7DMBD.P11 23-JUL-79 15:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0042 
A = 000000 2918 
AASB 013220 578 1775@ 
ALINE 013254 536 17828 
ALTO = 125252 2878 1889 1890 1891 1892 1893 1894 1895 1896 1897 1898 1899 1900 
1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 
1914 1915 1916 1917 1918 1919 
ALT1 = 052525 2884 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 
1933 1934 1935 1936 1937 1938 1939 1940 1941 1942 1943 1944 1945 
1946 1947 1948 1949 1950 1951 
APC 013734 555 18414 
APCADD 002134 515 545* 548* 554 
AILAST= 177777 2864 
ATNUMB 013724 559 18398 
AWAS 013235 582 17784 
BAR 001544 neat 639« 763* 827* 1006 1010" 1025* 1029 1076" 1558* 1559 1618 1620 
® 
BARDAT 001570 4634 
ARIM 001562 4608 1075* 
BASREG 001550 455 641* 818« 952« 
BAT 001500 449m 450 
BELL = 000007 2854 
BITO = 000001 2498 761 763 828 989 1557 1600 
BI1T1 = 000002 2484 
B1T10 = 002000 2398 
B1111 = 004000 2384 646 
BIT12 = 010000 2378 989 1554 1600 
B1115 = 020000 2368 532 551 1165 1168 1622 1644 1647 
BIT14 = 040000 2354 642 1165 1168 1612 1622 1644 1647 
BI1T15 = 100000 253 2348 81171 1625 1647 
BIT2 = 000004 2478 761 828 
BI1T5 = 000010 2464 
BI1T4 = 000020 2458 
BI11T5 = 000040 2448 
BI1T6 = 000100 2438 761 828 989 1554 1600 
BI1T7 = 000200 2424 861157 1637 
B11T8 = 000400 2414 
BI119 = 001000 2404 621 655 
BKCSR 001546 454m 638* 
BMOVE 005200 957 962 966 971 1057# 1545 1550 
CARMSK 002126 5124 B22" 831* 1106 
CAT 01400 445# 446 641 760* 818 823" 952 1023* 1073+ 15448 1546 1547 16308 
cc = 177776 2288 
CHKDAT 005320 1014 10954 1566 
CLKINT 001552 456" 791* 824" 981 1595 
CLKtLVL 001554 4578 825* 983 1597 
NT 004254 859 876" 895# 927 
CNTLU = 104020 2834 614 909 1540 1590 
CNTLUU 004332 503 9154 
CNITAB 012666 968 1139 1140* 16998 #1700 
CNVDAT 002356 531 549 5764 
COUNT 002146 5204 764* 765*# 
CRLF = 105215 1718 1720 1722 1724 1726 1728 1730 1732 1734 1736 1738 1740 1742 
1744 1746 1748 1750 17514 
CSR 001542 4528 637* 76i* 811 B19* 828« 830* 955* 989* 1003" 10098 1157e 1165 
1168+ 1169 1171* 1554* 1557* 1563* 1600" 1622 1625* 1637« 1644 1647 
CURTST 002012 4738 623 629 679* 
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CZDMBDO DMI1 DATA TSTS MACY11 30A(1052) 24-JUL-79 08:37 PAGE 44 


CZDMBD .P11 23-JUL-79 15:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0042 
DATCHK= 104004 273#@ = =61107 
DISPLA 001204 4434 941* 
DISPRE 000174 4298 941 : 
DLYXMT 004472 9514 1193 1205 1217 1229 1241 1253 1265 1277 1289 1301 1313 1325 
1337 1349 1361 1373 1385 1397 1409 1421 1433 1445 1457 1469 1481 
1493 1505 1517 1529 1541 1591 
DMPAR 003334 590 7474 
DMPARB 003620 7964 806 
DICHK 002156 491 5294 
EWALT = 104010 2768 
EMO 013721 562 183849 
EMTINT 003064 305 6834 
EMTTAB 002046 4874 689 
ERDAT 013200 565 17728 
002224 490 544M 
ERRA 002262 546 5504 
ERRB 002324 5448 547* 5634 
ERRC 002532 552 5664 
ERREX 002352 569 571" 
ERRHLT 002350 567 570" 
ERROR = 104003 2728 767 1125 1130 1167 1624 1646 
ERRORI= 104015 2804 538 1011 1147 
ERRVEC= 000004 2308 616* 
02242 500 5478 
ESCOPE 02650 497 6364 
FAJAG 004410 916 928 9308 
FORWD 003032 620 6748 
GETRDY 002540 609 613 6154 633 656 663 1183 
GILINB 005266 10834 1617 
GTRDYA 002566 6204 631 
GTRDYC 002610 622 6254 
GTRDYD 002632 628 6304 
GTRDYX 002546 6164 658 
ICTR 002029 476# 652* 677* 
10 012706 1023 17024 
IDENT 005024 953 10204 
IDENTO (012746 1702 171848 
IDENT) 012752 1703 17208 
IDENT2 012756 1704 17228 
IDENTS 012762 1705 17244 
IDENTS 012766 1706 17264 
IDENTS 012772 17C7 17288 
IDENT6 012776 1708 17304 
IDENT? 013002 1709 17328 
IONTIO 013006 1710 17348 
IONT11 013012 1711 17364 
IONT12 013016 1712 17384 
IONTI5) 013022 1713 17404 ‘ 
IDNT14 013026 1714 17428 
JONTI5 013032 1715 17448 
IONTI6 013036 1716 17468 
IDNT17 013042 1717 17488 
INCRTN 002150 5238 632 
INTAB 012626 1098 1136 16838 
KBDIN = 104017 2824 550 571 640 


KBDINT 004256 502 9004 


OO ee ee eee “ - 
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CZ2DMBD.P11 23-JUL-79 15:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0044 
CinBIT 001506 RR RR” as 
* * * 1027* 1075 1076 1084* 1087* 1618 1620 1631 

LINBUF 002142 518M 110i" 1102* 1103" 1104 1136" W141" 1142¢ . 

LINE 002140 517f $35 991« 992 998« 1029 1022 1026* 1072 1085 1100¢ 1616« 

LINEM 013265 540 1780# 

LNOBUF 007526 970« 972 973 1651# 1652 1683 

LNIBUF 007672 16538 1654 1684 

LNIOBF 011166 16674 1668 1691 

LNIIBEF 6011332 16694 1670 1692 

LNIZBF 011476 16718 1672 1693 

LNI5BF 011642 16734 1674 1694 

LNIGBF 012006 16754 1676 1695 

LNISBF 012152 1677# 1678 1696 

LNIGBF 012316 16794 1680 1697 

LNI7BF 012462 16814 1682 1698 

LN2ZBUF 010036 16554 1656 1685 

LN35BUF 010202 1657# 1658 1686 

LNGBUF 010346 16594 1660 1687 

LNSBUF 010512 16614 1662 1688 

LNOBUF 010656 16634 1664 1689 

LN7BUF 011022 16654 1666 1690 

MANUAL= 100000 2334 

MSG1 013743 1194 1206 1218 1230 1242 1254 1266 1278 1542 1592 18434 

MSG2 014044 1290 1302 1314 1326 1338 1350 1362 18564 

MSG3 014144 1374 1386 1398 1410 18884 

MSG4 014244 1422 1434 1446 1458 19204 

MSG65 014344 1470 1482 1494 1506 1518 1530 19528 

MO 013260 596 17834 

M1 0133500 $24 785 805 91 1786#@ 

M2 013303 661 1568 17874 

M3 013530 611 17914 

NONACT 007244 1619 16264 

NOP = 000240 2314 

NXTST 002016 475# 615* 630 657 674 676* 

OACNV 005112 534 55 557 576 580 919 10354 

OPEN = 000000 2328 445 447 449 451 456 458 460 461 462 463 464 466 
472 4? 474 475 476 477 488 489 492 493 494 495 496 
505 $10 511 $12 §13 514 515 516 517 518 519 520 563 
703 704 718 719 743 958 1052 

OUTBUF 007362 760 820* 823 959 107 1105 1544 1626* 1629 16498 1650 

OVRLAY 004042 591 772 774 838e 

PASS 002144 519" 650 659« 

PCADD 002132 S14a 545 48 685* 

POPPAR 013640 182948 

POPSP = 005726 250" 

POPSP2= 022626 2514 654 833 

PRG] 13571 18228 

PRGLIM 002024 478a 599 3 

PRGNUM 002446 594 598" 599« 600* 601 604 975 986 1555 1564 

PRGTAB 002026 479@ 602 

PROX 006644 1$38a@ 1579 

PRGO 005660 479 11764 

PRGOA 005664 11788 

PRGOM 013421 1177 1802@ 

PROOR 005702 483 11818 


PRG) 006640 480 15368 


+o DMI! DATA Sg ree Hh pacientes 


CZ7D0MBD.P11 0 
PRGIA 0 988 
PRGIC 006776 15648 
PRGID 007012 1565 
PRGIEX 007916 15698 
PRGIM 0134647 1§37 
PRGIR 006656 484 
PRG2 007024 481 
PRG2M 013527 1576 
PRG2R 007030 485 
PRGS 007034 482 
PRG3A 007062 977 
PRG3M 913556 1587 
PRG3R 007052 486 
PRTYO = 000000 2598 
PRTY1 = 000040 258A 
PRT¥2 = 000100 2578 
PRTY¥5 = 000140 2568 
PRTY4 = 000200 255a 
PRTYS = 000240 254M 
PRTY6é = 000300 2534 
PRTY7 = 000340 252a 
PRVCNT 002136 5164 
Sw = 177776 2298 
RCVDAT 002122 5104 
RECD 004076 597 
RINT 005426 982 
RINT3 07132 1596 
RINT3A 007142 16094 
RINT3B 007300 1613 
RINT35X 007316 163 
RSTART 002036 483" 
RSTAT1 002422 434 
RSTAT2 002472 436 
RSTREG= 104014 2798 
RSTRG 003156 499 
RTNNO 002014 474e 
RTO 005720 1178 
RTOA 005730 1188 
RT 05740 1186 
RTIA 005750 1200 
RT10 006120 1270 
RTIOA 606130 1284 
RT11 006140 1282 
RTVIA 006150 1296 
RT12 006160 1294 
RT12A 006170 1308 
R113 006200 1306 
RT13A 006210 1320 
R114 006220 1318 
RT14A 006230 1332 
RT15 006240 1330 
RTI5A 006250 1344 
R116 006260 1342 
RT16A 006270 1356 
R117 006300 1354 
RTI7A 006310 1368 


15448 
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24-JUL-79 08:37 PAGE 46 
CROSS REFERENCE TABLE -- USER SYMBOLS 


15414 


15914 


1064 


627 
1185a 


1570 

832" 

1006* 1104" 1144* 
857# 925 

1115 1159 


6735¢  -VATGe:. 1182 


SEQ 0045 
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CZD0MBD.P11 23-JUL-79 15:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEO 0046 
R12 0057606 1198 12098 
RI2ZA 005770 1212 12178 
R120 006320 1366 1377 
RT20A 006330 1380 13854 
R121 006340 1378 13898 
R121A 006350 1392 1397# 
RT 006360 1390 14018 
R122A 006370 1404 14094 
R123 006400 1402 14138 
RI23A 006410 1416 14214 
R124 006420 1414 1425@ 
R124A 006430 1428 14334 
R125 006440 1426 1437# 
R125A 006450 1440 14454 
R126 006460 1438 14494 
R126A 006470 1452 14574 
R127 006500 1450 14614 
R127A 006510 1464 14694 
RT 006000 1210 12214 
RT3A 006010 1224 12294 
K130 006520 1462 14734 
RT350A 006530 1476 14814 
R131 006540 1474 14854 
RT31A 006550 1488 14934 
R132 006560 1486 14974 
R152A 006570 1500 15054 
R133 006600 1498 15094 
RT335A 006610 1512 15174 
R134 006620 1510 15214 
R134A 006630 1524 15298 
R135 = 177777 1522 15324 
R14 006020 1222 123348 
RIGA 006030 1236 12418 
R15 006040 1234 12454 
RT5A 006050 1248 12534 
R16 006060 1246 1257 
RT6A 006070 1260 12654 
R17 006100 1258 12694 
RT7A 006110 1272 12778 
SAVREG= 104013 2784 1035 1057 1095 1121 
SAVRG 003116 498 693" 
SCOPE = 104012 277# §=1016 1150 
SCOPEA 002706 6444 653 
SCOPEB 002714 643 6464 
SCOPEC 002750 647 651 6544 
SCOPED 002752 624 6554 
SCOPTR 002022 4778 644 678* 
SPBOT 001200 4414 588 592 603 618 1569 
SRSET 002506 6064 #1180 
002110 505” 
STALL = 104002 271 
START 002404 433 588" 
STRXV = 104006 274 
STTXV = 104007 2758 
SuSWR = 104016 ebla 


589 
SUSWRR 004412 501 933a 


i 
CZDMBDO DM11 DATA TS1S MACY11 30A(1052) 24-jUL-79 08:37 PAGE 48 


C2DMBO.P11 25-JUL-79 15:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEO 0047 
Sw 001202 4428 $32 551 568 606 621 625 642 646 655 900 915 929« 
936 940*« 1538 1588 . 
SWREG 000176 4304 606 900 915 920 940 1538 1588 
TEMP 002130 5134 
TINT 005620 984 11644 “ 
TINTS 007336 1598 16434 
TKCSR 002112 506 860 
TKOBR 002114 507# 862 905 
TKLVL 002002 4694 
TKVTR 002000 4684 
TMP) 004370 904* 905« 906* 907 9264 929 
TPCSR 002116 508" 735 879 882 885 
TPOBR 002120 5094 734% 864* 881« BB4* 
TPLVL 002006 4714 
TPVTR 002004 4704 
TIDAT 001564 4614 1123 1127* 1133* 1134 1142 1609* 1612 1614* 1615 1626 
TIPTR 001572 4644 980* 1122 1158 1594* 1608 1638+ 
TUMTAB 001600 og 467 B26* 831 961 963 964 967 980 1152 1154 1594 1632 
TYP 003220 487 7220 
TYPE = 104000 2698 523 539 561 564 595 610 660 775 784 798 804 890 
892 917 923 1176 1536 1567 1577 1586 
TYPES = 104001 2704 
UNIT 003640 797 8014 802 BO7* 808+ 809* 813 
VAC 001540 4514 465 
VECOK 005540 773 780 782# 
VECOKA 003550 7844 788 790 
VECOKB 003556 783 7878 
VECTOR 003522 770* 7788 779 7Bi* 782 787 789 791 792* 793 
wCT 001440 4478 448 759 821* 996 1001 1024* 1074* 1144 15498 1551 1552 162/7* 
WHERE 013050 776 1755@ 
WHICH 013143 799 17674 
= 000034 2908 1184 11894 1196 1201" 1208 12135@.- 1220 12254 1232 12378 1264 12498 
1256 12614 1268 12738 1280 12854 1292 12978 1304 1309” 1316 13218 1328 
13334 1340 13454 1352 1357 1564 13694 1376 13814 1388 13938 1400 14058 
1412 14174 16264 14298 14636 14418 1448 14534 1460 14654 1472 146778 1684 
14894 1496 1501# 1508 15134 1520 15254 
XMITD 005222 994 10704 
XMTDAT 002124 Sila 529 577 1008* 1105* 1106* 1146% 
XMTINT 001556 458" 793" 
XMTLVL 001560 459" 985 1599 
= 000000 289" 
$CTLU 013140 893 17664 
SENDAD 003022 423 6694 
SSWREG 013111 918 17618 
$SVALUE 013120 921 924 17638 
. = 014446 292m 295 297 299 301 303 307 309 311 313 315 317 319 
321 323 325 327 329 331 333 335 337 339 341 343 345 
347 349 351 353 355 357 359 361 363 365 367 369 371 
373 375 377 379 381 383 385 387 389 391 393 395 397 
399 401 403 405 407 409 11 413 415 417 419 4228 4248 
4288 4324 439# ea 446# 4488 450" 465" 467 7% 976 987 1556 
1560 1562 1603 1621 16235 1635 1645 16508 16528 16548 16568 16588 16608 
16628 16644 16668 10684 16708 1672@ 16744 16764 16788 16808 16828 17008 1RSSa 


o— eee ee ee - 
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CZ7DMBD.P11 25-JUL-79 1 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 00464 
GE? 211 597 777 800 925 
HEADER 211 1184 11% 1208 1220 1232 1244 1256 1268 1280 1292 1304 1316 1328 1340 
1352 14564 1376 1388 1400 1412 1424 1436 1448 1460 1472 1484 1496 1508 1520 
XMTDLY 21s 1184 1196 1208 1220 1232 1244 1256 1268 1280 1292 1304 1316 1328 14340 
1352 1564 14376 1388 1400 1412 1424 1436 1448 1460 1472 1484 1496 1508 1§20 


» ABS, 014446 006 


ERRORS DETECTED: O 


Tie sa Bee a thence! (POL IM. 5100 <CEDMRD PIT 
RUN-TIME; 12 2 SECONDS 

RUN~T IME RATIO: 121/21=5.5 

CORE USED: 8K (15 PAGES) 


Cae. ee oe ” 


- <6) et eee eee 


